小编inz*_*rio的帖子

我正在尝试在我的shinyApp 中使用shinyFiles 库，以便让用户能够选择一组文件或一个目录。我的想法是使用根据复选框选择而变化的 uiOutput。

这里我报告一下代码，也许比文字更能说明问题

UtilityUI <- fluidPage(
  titlePanel("page1"),
  fluidRow(
    column(2, 
      wellPanel(
                tags$p("Check the box below if you want to choose an entire directory"),
                checkboxInput(inputId = 'directory_flag', label = 'Directory path?', value = FALSE),
                uiOutput("input_selection_ui")
            )
    ),
    column(8
           #...
           )
  )
)

UtilityServer <- function(input, output, session) {

  output$input_selection_ui <- renderUI({
    if(input$directory_flag == TRUE) {
      shinyDirButton(id = "infiles", label = "Choose directory", title = "Choose a directory")
    } else {
      shinyFilesButton(id = "infiles", label = "Choose file(s)", title = "Choose …