R Shiny 启用/禁用 UI 模块

Question

我想将我的 Shiny 应用设置为根据用户输入动态启用/禁用 UI 模块。我习惯于在非模块化应用程序中使用 ShinyJS 通过将 UI 元素的 ID 传递给 enable() 或 disable() 函数来执行此操作。但是，现在 UI 是在模块内部生成的，我无法再访问相同的 ID。

这里是一个示例应用程序，每次单击“counter1”按钮时递增 1。 “counterButton”功能包含在一个名为“counterModule.R”的外部模块中，我希望“toggleButton”在启用和禁用之间切换“counterButton”的状态。我认为目前对 toggleState() 的调用没有任何作用，因为找不到“counter1”ID。最好的解决方法是什么？

app.R

library(shiny)
library(shinyjs)


ui <- fluidPage(
  shinyjs::useShinyjs(), 
  mainPanel(actionButton(inputId = "toggleButton", label = "Toggle counter button"), 
  sidebarPanel(counterButton("counter1", "+1"))) 
)

server <- function(input, output, session) {
  observeEvent(input$toggleButton, {
    print("clicked toggle button")
    shinyjs::toggleState("counter1")
  })
  counterServer("counter1")
}

shinyApp(ui, server)

R/counterModule.R

counterButton <- function(id, label = "Counter") {
  ns <- NS(id)
  tagList(
      actionButton(ns("button"), label = label), 
      verbatimTextOutput(ns("out"))
  )
}

counterServer <- function(id) {
  moduleServer(
    id,
    function(input, output, session) {
      count <- reactiveVal(0)
      observeEvent(input$button, {
        count(count() + 1)
      })
      output$out <- renderText({
        count()
      })
      count
    }
  )
}

Answer 1

你有两种可能性。闪亮模块的命名空间采用以下格式：namespace-elementid。这意味着您在模块中的按钮具有全局唯一的 id counter1-button（在模块内，您可以使用 button）。

因此，您可以在主 server 函数中使用命名空间 id：

observeEvent(input$toggleButton, {
    print("clicked toggle button")
    shinyjs::toggleState("counter1-button")
  })

但是，这以某种方式打破了模块和主服务器功能中定义的 ui/logic 的分离。因此，第二种选择是在主应用程序中定义切换按钮，但在模块中具有切换逻辑：

library(shiny)
library(shinyjs)

##########################
# code of the module
counterButton <- function(id, label = "Counter") {
  ns <- NS(id)
  tagList(
    actionButton(ns("button"), label = label), 
    verbatimTextOutput(ns("out"))
  )
}

counterServer <- function(id, toggle_action) {
  moduleServer(
    id,
    function(input, output, session) {
      count <- reactiveVal(0)
      observeEvent(input$button, {
        count(count() + 1)
      })
      output$out <- renderText({
        count()
      })
      
      observeEvent(toggle_action(), {
        print("clicked toggle button")
        shinyjs::toggleState("button")
      })
      
      count
    }
  )
}


##########################
# code of the main app
ui <- fluidPage(
  shinyjs::useShinyjs(), 
  mainPanel(actionButton(inputId = "toggleButton", label = "Toggle counter button"), 
            sidebarPanel(counterButton("counter1", "+1"))) 
)

server <- function(input, output, session) {

  counterServer("counter1", toggle_action = reactive({input$toggleButton}))
}

shinyApp(ui, server)