R-Shiny UI-Idiom für Multi-Select-Eingabe mit Zahlenpaar

Question

Ich muss den Benutzer erlauben, einige Widgets aus einem festen Satz von Widgets auswählen und dann eine Menge für jedes Widget, das er ausgewählt hat.

selectInput("widgets","Widgets",choices = widgets_list,multiple = TRUE) 

Wie kann ich dynamisch einen Satz von numerischen Eingabefelder zeigen, eine für jedes Element durch den Benutzer in der Multi-Select-Box oben ausgewählt?

Schließlich möchte ich mit einer gewissen Struktur, um am Ende wie:

data.frame(widgets=c("Widget1","Widget2","Widget3"),quantities=c(23,34,23)) 

Irgendwelche Gedanken darüber, wie dies am besten zu implementieren?

Answer 1

Hier ist ein Spielzeugprogramm, das tut, was Sie wollen - ich denke.

Es verwendet eine reactiveValues, um ein Paar Vektoren zu deklarieren, die Sie dann reaktiv ändern können. Es verwendet renderUI und uiOutput, um neue Eingabegeräte zu rendern, wenn sich die zugrunde liegenden Daten ändern. Es verwendet auch renderDataTable, um Ihnen die Datentabelle anzuzeigen, die erstellt wird.

library(shiny)  
widgets_list = c("Widget1","Widget2","Widget3") 
widgets_quan = c(23,34,23) 
u <- shinyUI(fluidPage(
    titlePanel("Shiny Widgets Input"), 
    sidebarLayout(position = "left", 
      sidebarPanel(h3("sidebar panel"), 
         uiOutput("widgname"), 
         uiOutput("widgquan") 
         ), 
      mainPanel(h3("main panel"), 
        dataTableOutput("dataframe") 
        ) 
))) 
s <- shinyServer(function(input,output) { 

    rv <- reactiveValues(wname = widgets_list,wquan = widgets_quan) 

    observeEvent(input$widgquan, { 
     rv$wquan[ which(rv$wname==input$widget) ] <- input$widgquan 
    }) 
    output$widgname <- renderUI({ 
    selectInput("widget","Widget",choices = rv$wname) 
    }) 
    output$widgquan <- renderUI({ 
     req(input$widget) 
     n <- rv$wquan[which(rv$wname == input$widget)] 
     numericInput("widgquan","Quantity:",n) 
    }) 
    widgdata <- reactive({ 
    req(input$widgquan) 
    df <- data.frame(Widgets = rv$wname,Quantity = rv$wquan) 
    }) 
    output$dataframe <- renderDataTable({ widgdata() }) 
}) 
shinyApp(ui = u,server = s) 

wodurch man