我正在尝试将文件上传到Shiny来处理它,然后查看它.
我已经能够创建一个包含CSV文档的表,但输出myData不能用作boxplot或任何其他图形的输入.
服务器
shinyServer(function(input, output, session){
myData <- reactive({
inFile <- input$file1
if (is.null(inFile)) return(NULL)
data <- read.csv(inFile$datapath, header = TRUE)
data
})
output$contents <- renderTable({
myData()
})
}
Run Code Online (Sandbox Code Playgroud)
UI
library(shiny)
write.csv(data.frame(a = 1:10, b = letters[1:10]), 'test.csv')
shinyUI(fluidPage(
titlePanel("Uploading Files"),
sidebarLayout(
sidebarPanel(
fileInput('file1', 'Choose CSV File',
accept=c('text/csv',
'text/comma-separated-values,text/plain',
'.csv'))
),
mainPanel(
tableOutput('contents'),
plotOutput('distPlot')
)
)
)
)
Run Code Online (Sandbox Code Playgroud)
如何使用我从myData函数上传的文件中的数据?