Shiny应用问题：切换单选按钮后主面板选中值丢失求助

问题原因 #

你遇到的问题根源在于：

• 切换单选按钮的observeEvent中，每次都用updateSelectizeInput重置了所有下拉选择框的选中状态为character(0)（空值）。
• 每个下拉框的observeEvent会监听自身输入变化，当某个下拉框被重置为空时，对应的监听事件会触发，将rval()设为空，导致主面板内容消失。
• 虽然你没直接修改rval，但下拉框的重置间接触发了修改rval的监听逻辑。

解决方案 #

只需要移除单选按钮事件中重置下拉框选中状态的代码，仅保留显示/隐藏下拉框的逻辑即可。修改后的完整代码如下：

library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  id = "page",
  sidebarLayout(
    position = "left",
    sidebarPanel(
      radioButtons(
        "choice_btn", "Choose list:",
        c("Lower" = "lower", "Upper" = "upper", "Digit" = "digit"),
        selected = "lower"
      ),
      selectizeInput(
        inputId = "lower_choice",
        label = "List of lower items",
        choices = NULL,
        selected = NULL,
        options = list(placeholder = 'select or type an item')
      ),
      selectizeInput(
        inputId = "upper_choice",
        label = "List of upper items",
        choices = NULL,
        selected = NULL,
        options = list(placeholder = 'select or type an item')
      ),
      selectizeInput(
        inputId = "digit_choice",
        label = "List of digit items",
        choices = NULL,
        selected = NULL,
        options = list(placeholder = 'select or type an item')
      )
    ),
    mainPanel(
      textOutput("item")  
    )
  )
)    

server <- function(input, output, session) {
  rval <- reactiveVal()
  
  # 初始设置下拉框选项，仅执行一次
  updateSelectizeInput(session, 'lower_choice', choices = c("a","b","c","d"), server = TRUE)
  updateSelectizeInput(session, 'upper_choice', choices = c("A","B","C","D"), server = TRUE)
  updateSelectizeInput(session, 'digit_choice', choices = c(1,2,3,4), server = TRUE)
  
  # 初始隐藏非默认下拉框
  shinyjs::hide("upper_choice")
  shinyjs::hide("digit_choice")
  
  output$item <- renderText({ rval() })
  
  observeEvent(input$choice_btn, {
    choice  <- input$choice_btn
    choices <- c("lower", "upper", "digit")
    # 显示当前选中的下拉框，隐藏其他
    shinyjs::show(paste0(choice,"_choice"))
    for (x in choices) {
      if (x != choice) {
        shinyjs::hide(paste0(x,"_choice"))
      }
    }
  })
 
  # 监听各下拉框选择，更新显示值（增加非空判断避免空值触发）
  observeEvent(input$lower_choice, {
    if (!is.null(input$lower_choice)) {
      rval(input$lower_choice)
    }
  })
  
  observeEvent(input$upper_choice, {
    if (!is.null(input$upper_choice)) {
      rval(input$upper_choice)
    }
  })
  
  observeEvent(input$digit_choice, {
    if (!is.null(input$digit_choice)) {
      rval(input$digit_choice)
    }
  })
}

shinyApp(ui, server)

可选优化：保留各列表的选中状态 #

如果希望切换单选按钮时，不仅主面板内容保留，还能恢复对应列表之前的选中状态，可以用reactiveValues分别存储每个列表的选中值：

server <- function(input, output, session) {
  # 用reactiveValues存储每个列表的选中值
  rvals <- reactiveValues(
    lower = NULL,
    upper = NULL,
    digit = NULL
  )
  
  # 初始设置下拉框选项
  updateSelectizeInput(session, 'lower_choice', choices = c("a","b","c","d"), server = TRUE)
  updateSelectizeInput(session, 'upper_choice', choices = c("A","B","C","D"), server = TRUE)
  updateSelectizeInput(session, 'digit_choice', choices = c(1,2,3,4), server = TRUE)
  
  shinyjs::hide("upper_choice")
  shinyjs::hide("digit_choice")
  
  # 主面板显示最后一次选中的值，或当前列表的选中值
  output$item <- renderText({
    # 优先取当前列表的选中值，没有则取最后一次选中的任意值
    current_val <- rvals[[input$choice_btn]]
    if (is.null(current_val)) {
      all_vals <- c(rvals$lower, rvals$upper, rvals$digit)
      current_val <- tail(all_vals[!is.null(all_vals)], 1)
    }
    current_val
  })
  
  observeEvent(input$choice_btn, {
    choice  <- input$choice_btn
    choices <- c("lower", "upper", "digit")
    shinyjs::show(paste0(choice,"_choice"))
    # 切换时恢复对应列表的选中状态
    updateSelectizeInput(session, paste0(choice,"_choice"), selected = rvals[[choice]])
    for (x in choices) {
      if (x != choice) {
        shinyjs::hide(paste0(x,"_choice"))
      }
    }
  })
 
  # 记录各列表的选中值
  observeEvent(input$lower_choice, {
    rvals$lower <- input$lower_choice
  })
  
  observeEvent(input$upper_choice, {
    rvals$upper <- input$upper_choice
  })
  
  observeEvent(input$digit_choice, {
    rvals$digit <- input$digit_choice
  })
}

内容的提问来源于stack exchange，提问作者Fabrice