Блестящие R уникальные значения полей как выпадающие элементы

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), 

Надеюсь, что это поможет