Question

我想从字段的唯一值创建selectInput下拉列表，即无需全部枚举它们。如何做到这一点？

例如，在这个简单的例子中，如果我有以下data.frame，state_data：

State  V1
MA     1   
MA     2
MA     54
VA     1 
NC     4
VA     4 
NC     20

我希望下拉选项为MA，VA，NC，然后在服务器端，我希望它对应于data.frame的所选子集。

UI.r

library(shiny)
shinyUI(pageWithSidebar(
headerPanel("State Data"),


sidebarPanel(
selectInput("variable","State:",
list(State)),

),


 mainPanel()


))

Server.r

library(shiny)


state_data <- read.csv("dummy.csv",header=T)
State <- factor(state_data$state)
State <- levels(State)


shinyServer(function(input, output) {



})

Answer 1

以下是在目录中列出csv文件以形成下拉菜单的示例 -

filenames<-list.files(pattern="\\.csv$")

  sidebarPanel(
    selectInput(inputId = "dataset",
                label = "Select",
                filenames),

希望有所帮助

闪亮的R唯一字段值作为下拉项

1 个答案: