Я создаю приложение Shiny, в котором один из разделов диаграммы Венна будет назван в честь загруженного файла (сделанного пользователем). Например, если кто-то загрузит файл ClientXYZ.csv, один раздел диаграммы Венна будет называться «ClientXYZ».
Можно ли это сделать в Shiny?
fileInput("file1", "Choose CSV File", accept = c( "text/csv", "text/comma-separated-values,text/plain", ".csv"), то на стороне сервера вы получите имя файла, как следующее input$file1$name. Перейдите по этой ссылке. 06.01.2017 Это не ясно без воспроизводимого примера, но вы можете получить имя файла с вводом и именем.
library(shiny)
ui <- fluidPage(
titlePanel("Grabbing my file name"),
sidebarLayout(
sidebarPanel(
fileInput('file1', 'Select your file',
accept = c(
'text/csv',
'text/comma-separated-values',
'.csv'
)
)
),
mainPanel(
textOutput("myFileName")
)
)
)
server <- function(input, output) {
file_name <- reactive({
inFile <- input$file1
if (is.null(inFile))
return(NULL)
return (stringi::stri_extract_first(str = inFile$name, regex = ".*(?=\\.)"))
})
output$myFileName <- renderText({ file_name() })
}
# Run the application
shinyApp(ui = ui, server = server)
