Eindeutige Werte funktionieren nicht in R glänzend selectInput

Question

Ich möchte eine Mehrfachauswahl von Spalten aus einem Datensatz und dann eine weitere Mehrfachauswahl von UNIQUE-Werten in den ausgewählten Spalten. Im Moment scheint die einzigartige Funktion nicht zu funktionieren. Es dupliziert die Werte, von denen über die Spaltenauswahl die meisten eindeutigen Werte haben.

ui<-shinyUI(fluidPage(fluidRow(column(width = 4, 

    uiOutput("variants"), 
    uiOutput("variants2") 
    ) 
))) 

server <-shinyServer(function(input, output, session) { 

    df<-somedata 


    output$variants <- renderUI({ 
     selectInput ("choose_columns", 
         "Choose Attribute", 
         sort(unique(names(df)), decreasing = FALSE), 
         selected="", 
         multiple =TRUE) 

    }) 


    dat<-reactive({ 
    unique(df[,input$choose_columns]) 
    }) 



    output$variants2 <- renderUI({ 
    selectInput ('further', 
        'Choose Attribute(s) Value(s)', 
        dat(), 
        selected="", 
        multiple = TRUE) 
    }) 



}) 

shinyApp(ui, server) 

Answer 1

Ihr Code scheint für mich zu arbeiten. Ich habe den Datensatz mtcars als Beispiel verwendet. Mein einziger Vorschlag ist, df<-somedata außerhalb (vorher) Ihres server Codes zu haben. Auf diese Weise werden die Daten nicht jedes Mal neu geladen, wenn der Benutzer Eingaben ändert. Unten ist mein Code mit mtcars:

ui<-shinyUI(
    fluidPage(
    fluidRow(
     column(width = 4, 
     uiOutput("variants"), 
     uiOutput("variants2") 
    ) 
    ) 
) 
) 

library(datasets) 
data("mtcars") 

server <- shinyServer(function(input, output, session) { 

    output$variants <- renderUI({ 
    selectInput ("choose_columns", 
     "Choose Attribute", 
     sort(unique(names(mtcars)), decreasing = FALSE), 
     selected="", 
     multiple =TRUE) 
    }) 

    dat<-reactive({ 
    unique(mtcars[,input$choose_columns]) 
    }) 

    output$variants2 <- renderUI({ 
    selectInput('further', 
     'Choose Attribute(s) Value(s)', 
     dat(), 
     selected="", 
     multiple = TRUE) 
    }) 
}) 

shinyApp(ui, server) 

Answer 2

Versuchen dat Druck(), werden Sie sehen, dass die Werte in jeder Spalte wiederholen kann, aber nie eine ganze Reihe zum anderen gleich sein. Die selectInput bricht nur dat() durch Spalten. Eine Möglichkeit, eindeutige Werte von Spalte zu bekommen am selectInput verwendet:

dat<-reactive({ 
    lapply(mtcars[,input$choose_columns], unique) 
})