R闪亮：当multiple = TRUE时selectInput（）不反映变量选择

Question

我编写了一个闪亮的小应用程序来测试用户上传数据的变量选择功能。这是我的代码：

ui.R

shinyUI(pageWithSidebar(
  headerPanel("CSV Data explorer"),
  sidebarPanel(

    fileInput('datafile', 'Choose CSV file',
          accept=c('text/csv', 'text/comma-separated-values,text/plain')),

    htmlOutput("varselect", inline=TRUE),

    selectInput("vars", "Select a variable:",choices=htmlOutput("varselect")),

    br()  
  ),

  mainPanel(

    dataTableOutput("table")

  )
))

server.R

shinyServer(function(session,input, output) {

  Dataset <- reactive({
  infile <- input$datafile
  if (is.null(infile)) {

    return(NULL)
  }
  read.csv(infile$datapath)
  })

  observe({
  output$varselect <- renderUI({

    if (identical(Dataset(), '') || identical(Dataset(),data.frame())) return(NULL)

      updateSelectInput(session, inputId="vars", label="Variables to use:",
                    choices=names(Dataset()), selected=names(Dataset()))

    })
  })

  output$table <- renderDataTable({

  if (is.null(input$vars) || length(input$vars)==0) return(NULL)

  return(Dataset()[,input$vars,drop=FALSE])
  })

})

如果您继续对任何 csv 文件进行测试，您将看到 2 个问题： 1. selectInput() 框上方的所有变量名显示混乱，这是由代码引起的：

htmlOutput("varselect", inline=TRUE)

但是如果我删除这行代码，我的 selectInput 就会消失。

1. 如果我更改为
，则 selectInput 只允许选择单个变量

selectInput("vars", "选择一个变量：",choices=htmlOutput("varselect"), multiple=TRUE),

并尝试点击多个选项，它不会反映在主面板的表格中。

我已经为这个问题苦苦挣扎了一段时间。有人可以帮忙吗！提前数以百万计的感谢！

问候， 介意

Answer 1

我认为你让你的过于复杂了。简而言之，您只需要一个uiOutput 来代替您的ui.R 中的htmlOutput 和selectInput 语句。似乎也不需要updateSelectInput 或observe 函数。您可以将代码简化为以下内容，并且多项选择似乎可以正常工作：

ui.R

shinyUI(pageWithSidebar(
  headerPanel("CSV Data explorer"),
  sidebarPanel(

    fileInput('datafile', 'Choose CSV file',
              accept=c('text/csv', 'text/comma-separated-values,text/plain')),

    uiOutput("varselect"),
    br()  
  ),

  mainPanel(

    dataTableOutput("table")

  )
))

服务器.R

shinyServer(function(session,input, output) {

  Dataset <- reactive({
    infile <- input$datafile
    if (is.null(infile)) {

      return(NULL)
    }
    read.csv(infile$datapath)
  })

  output$varselect <- renderUI({

    if (identical(Dataset(), '') || identical(Dataset(),data.frame())) return(NULL)

    cols <- names(Dataset())
    selectInput("vars", "Select a variable:",choices=cols, selected=cols, multiple=T)  

  })

  output$table <- renderDataTable({

    if (is.null(input$vars) || length(input$vars)==0) return(NULL)

    return(head(Dataset()[,input$vars,drop=FALSE]))
  })

})