R conditionPanel不考虑以下条件

问题是，与通过$访问R中的元素类似，只有当对象属性是有效的变量名时，才能使用点符号(.)访问JS中的对象属性，而radioBtn-radioBtn不是，即您必须使用括号符号([])，例如condition = paste0("input['", ns("radioBtn"), "'] === 'idA'").但是，使用conditionalPanel的ns=参数可以更轻松地实现结果:

mod_models_ui <- function(id) {
  ns <- NS(id)
  tagList(
    radioButtons(ns("radioBtn"), "", c("A" = "idA", "B" = "idB"), selected = "idA"),
    conditionalPanel(
      condition = "input.radioBtn === 'idA'",
      h3("A"),
      textInput("text1", "Widget 1"),
      textInput("text2", "Widget 2"),
      ns = ns
    ),
    conditionalPanel(
      condition = "input.radioBtn === 'idB'",
      h3("B"),
      textInput("text3", "Widget 3"), textInput("text4", "Widget 4"),
      ns = ns
    )
  )
}

mod_models_server <- function(id) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns
    observe({
      print(input$radioBtn)
    })
  })
}

library(shiny)

ui <- fluidPage(
  mod_models_ui("radioBtn")
)

server <- function(input, output, session) {
  mod_models_server("radioBtn")
}

shinyApp(ui, server)
#> 
#> Listening on http://127.0.0.1:8788
#> [1] "idA"