У меня есть простой вопрос относительно моего фрагмента кода ниже.
library(shiny)
ui <- fluidPage(
fileInput("x", "upload file", accept = c(
"text/csv",
"text/comma-seperated-values, text/plain",
".csv")),
tableOutput("my_csv")
)
server <- function(input, output) {
csv <- reactive({
inFile <- input$x
if (is.null(inFile))
return(NULL)
df<- read.csv2(inFile$datapath, header=T)
return(df)
})
output$my_csv <- renderTable({
validate(need(!is.null(csv()),'no file yet.'))
csv()
})
}
shinyApp(ui, server)
Мне нужна функция типа get () для печати имени загруженного csv-файла.На следующем шаге я хочу создать список (с именем «list») с загруженным файлом в качестве первого объекта с именем файла.Итак, если имя загруженного файла - «squirrel.csv» и я вызываю список $ squirrel.csv, я хочу просмотреть таблицу.