Question

我有一个R Shiny应用程序，需要上传多个文件（都在同一文件夹中找到）。我也知道要查找的文件的名称。

除了具有fit<-lm(wage ~ bs(age,knots = c(30,50,60)),data = Wage)对象且允许选择多个文件之外，是否有其他方法可以上传这些文件？理想情况下，我会让用户上传整个目录。

Answer 1

您可以使用库shinyFiles来使用户在其本地磁盘上的某个位置显示文件夹。然后在服务器中，您可以使用用户输入从该文件夹中加载所需的所有文件。

示例

library(shiny)
library(shinyFiles)

### UI
ui <- fluidPage(
  shinyDirButton('directory_select', 'Select a directory', title='Select a directory'),
  textOutput('directory_name')
)

### Server
server <- function(input, output, session) {
  volumes <- getVolumes()
  shinyDirChoose(input, 'directory_select', roots=volumes, session=session)
  dirname <- reactive({parseDirPath(volumes, input$directory_select)})

  ## Observe input dir. changes
  observe({
    if(!is.null(dirname)){
      print(dirname())
      output$directory_name <- renderText(dirname())
      ## Load files here
      # csv <- read.csv(paste0(dirname(), '/filename1.csv'))
      # rdata <- load(paste0(dirname(), '/filename2.Rdata'))
      # etc.
    }
  })
}

shinyApp(ui = ui, server = server)

在R Shiny中上传用户选择的目录

1 个答案: