R闪亮中的下拉问题答案

【问题标题】：Issue with a drop down in R shinyR闪亮中的下拉问题
【发布时间】：2015-01-11 19:09:03
【问题描述】：

我目前正在用 R Shiny 构建仪表板。我希望用户能够从当前正在进行的实验列表中进行选择，这些实验会随着时间的推移而变化。因此，它必须从代码每天生成的数据帧（或类似的东西）中调用，作为列表的开始和停止。

我有下面的当前代码，但是这提供了一个数字而不是名称，我认为这是对名称的引用，但我不明白如何让它显示名称。当我使用列表代码时，它不会运行，因为它声明我必须单独列出每个项目，（假设这就像下面的用户类型一样。

Testids 目前是一个有 45 个 obs 的数据框。 1 个变量。

关于如何解决这个问题的任何想法？

提前致谢

library("shiny")

闪亮的UI（ pageWithSidebar( headerPanel("草稿破折号"), # 带有测试类型过滤器的侧边栏

sidebarPanel(

  selectInput("Test", "Experiment Name:",
              c(Testids)          
              ),

  selectInput("User", "User Type:",
              list("All users" = "All",
                   "Known users" = "KN",
                   "Unknown users" = "UN",
                   "New users" = "NW",
                   "Existing users" = "EX")),

【问题讨论】：

Testids 中有哪些数据？它是测试的名称吗？它在哪里读入应用程序？ - 在ui.r?或global.r?

标签： c r list shiny dashboard

【解决方案1】：

据我所知，selectInput("Test", "Experiment Name:", c(Testids) ) 将显示数据框 Testids 的条目，而不是列名，我认为这是您想要的。使用names(dataframe) 用列名填充SelectInput 列表。

server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(mtcars[,input$Select], col = 'darkgray', border = 'white')
  })
}

ui <- shinyUI(fluidPage(
  sidebarLayout(
   sidebarPanel(
     selectInput('Select', 'Selection:', names(mtcars)),
      selectInput("User", "User Type:",
          list("All users" = "All",
               "Known users" = "KN",
               "Unknown users" = "UN",
               "New users" = "NW",
               "Existing users" = "EX"))
                ),
    mainPanel(plotOutput("distPlot"))
  )
  ))

shinyApp(ui = ui, server = server)

【讨论】：