updateSelectInput 带有闪亮的内部和 Rmarkdown 文档

Question

我正在尝试在 Rmarkdown 文档中使用 Shiny 内联。在这个简单的示例中，我想创建 3 个输入：第一个允许您选择 4 个国家中的一个或多个（“GHA”、“RWA”、“TZA”、“UGA”）。在实际应用程序中，我希望根据所选国家/地区的实际景观更新景观选项。但是，在这个例子中，我只希望初始视图（默认选择“GHA”时）为“L01”到“L06”。然后，如果对“国家/地区”输入进行任何更改，横向选项将更改为 (“hmm”、“hum”)。我已经读过，在某些情况下，观察与反应选项可能是首选，并尝试了各种变体，但基本上每次我包含 updateSelectInput 命令时，我都会丢失应用程序中的任何景观选项。感谢您提供任何见解！

library(shiny)   
  selectInput("countries", 'Country',
                list("GHA","RWA","TZA","UGA"),
                multiple=TRUE, 
                selectize=TRUE, 
                selected="GHA")
  checkboxGroupInput("landscapes", label=("Landscape"), 
                choices=c("L01","L02","L03","L04","L05","L06"), selected="L01")   
  radioButtons("checkPlot", label = ("Factors"), 
                         choices=c("Gender of Household Head", "Water Source(s)"),
                         selected = "Water Source(s)")
  observeEvent(input$countries, {
    updateSelectInput(session, "landscapes", choices=c("hmm","hum"))   })

Answer 1

这是解决您的问题的示例代码：

library(shiny)
library(DT)
shinyApp(
  ui = fluidPage(
    selectInput("countries", 'Country',
                list("GHA","RWA","TZA","UGA"),
                multiple=TRUE, 
                selectize=TRUE, 
                selected="GHA"),
    uiOutput("checkbox")
  ),
  server = function(input, output) {

    output$checkbox <- renderUI({
      choice <-  if(any(input$countries == "GHA")){
        choice <- c("L01","L02","L03","L04","L05","L06")
      }else{ 
        choice <- c("hmm","hum")}
      checkboxGroupInput("landscapes", label=("Landscape"), choices = choice, selected = choice[1])

    })

   }
)

我没有使用updateSelectInput，因为在这种情况下我认为if...else... 语句效果更好。详细地说，代码说如果任何选择（如您在selectInput 中设置的multiple = TRUE）等于GHA，那么它会提供从L01 到L02 的选择，如果它不等于GHA，那么选择是hmm 和hum .

** 如果您使用updateSelectInput 或observeEvent 等，它应该放在服务器而不是用户界面中。