长选择中的R闪亮收藏夹

Question

我想知道如何处理一长串的选项。 例如，在下面的示例中，我有一个选项的子集作为收藏夹，但希望能够选择所有选项，包括非收藏夹。 如何获得基于radiogroupbutton（）和selectInput（）的input $ selected返回我最后选择的内容？ 干杯，卢克

编辑：我想保持外观，它具有单选按钮和一个下拉列表。 因此，我假设两者都需要不同的inputID，然后可以在服务器站点中将它们组合（以某种方式）（如Joris所建议的）。 我不确定如何在服务器站点上将它们组合在一起，以及如何确定最后选择的内容。

ALL.options <- apply(expand.grid(LETTERS, LETTERS), 1, function(x){paste(x, collapse="")})
favourites <- sample(ALL.options, 20)




ui <- fluidPage(

  h3("Favourites:"),
      radioGroupButtons(inputId="selected", 
                        choices = sort(favourites), 
                        individual = TRUE, 
                        selected = NULL, 
                        width="20%"),

  selectInput(inputId="selected", label = "Other options",
              choices = ALL.options, 
              selected = NULL),

    h3("THIS IS YOUR SELECTION:"),

  verbatimTextOutput("choice")

)

)

server <- function(input, output) {

output$choice <- renderPrint(
  input$selected
  )

}

shinyApp(ui, server)

Answer 1

也许只需要使用一个单独的selectInput或selectizeInput在单独的选项组中列出“ 收藏夹”和“ 其他”选项 （请参见例如Shiny：用于选择输入的选项组 ）：

library(shiny)

ALL.options <- apply(expand.grid(LETTERS, LETTERS), 1, function(x){paste(x, collapse="")})
favourites <- sample(ALL.options, 20)


ui <- fluidPage(

    selectizeInput(inputId = "selected", label = "All options", choices = list(
            Favourites = favourites,
            `Other options` = setdiff(ALL.options, favourites)
        ), 
        options = list(
            placeholder = '<None selected>',
            onInitialize = I('function() { this.setValue(""); }')
        )
    ),

    h3("THIS IS YOUR SELECTION:"),

    verbatimTextOutput("choice")

)

server <- function(input, output) {

  output$choice <- renderPrint({

        validate(need(input$selected, "None selected"))

        input$selected

      })

}

shinyApp(ui, server)

---

注意：如果改为使用两个单独的输入（ radioGroupButtons和selectInput ），则可以在服务器对象中组合选定的选项。 例如：

library(shiny)
library(shinyWidgets)

ALL.options <- apply(expand.grid(LETTERS, LETTERS), 1, function(x){paste(x, collapse="")})
favourites <- sample(ALL.options, 20)

ui <- fluidPage(

    h3("Favourites:"),
    radioGroupButtons(inputId = "radio", 
        choices = sort(favourites), 
        individual = TRUE, 
        selected = character(0), 
        width="20%"),

    selectizeInput(inputId="select", label = "Other options",
        choices = ALL.options,
        options = list(
            placeholder = '<None selected>',
            onInitialize = I('function() { this.setValue(""); }')
        )
    ),  

    h3("THIS IS YOUR SELECTION:"),

    verbatimTextOutput("choice")

)

server <- function(input, output) {

  ## initialize reactive value
  currentSelected <- reactiveVal(NULL)

  ## update based on radioGroupButtons
  observeEvent(input$radio, {

        currentSelected(input$radio)

      })

  ## update based on selectInput
  observeEvent(input$select, {

        currentSelected(input$select)

      })

  output$choice <- renderPrint({

        validate(need(currentSelected(), "None selected"))

        currentSelected()

      })

}

shinyApp(ui, server)

^{由reprex软件包 （v0.3.0）创建于2019-06-17}

Answer 2

我不确定我是否完全理解您要达到的目标。 我还注意到， radioGroupButtons和selectInput都具有相同的inputId 。 如果要打印两个选项，则可以将selectInput的inputId更改为， select并仅将renderPrint修改为：

output$choice <- renderPrint(
    c(input$selected, input$select)

  )

这是你想要的？