R 查看在模块中的ui Output中呈现的输入

发布于12月16日

我正在try 观察在模块中呈现在uiOutput中的输入.

我try 了以下reprex代码:

my_modUI <- function(id) {
  ns <- NS(id)
  tagList(
  uiOutput(ns("ui1")),
  verbatimTextOutput(ns("text1"))
  )
}

my_modServer <- function(id) {
  moduleServer(
    id,
    function(input, output, session) {
      output$ui1 <- renderUI({
        actionButton("btn", "Click me!")
      })
      
      observeEvent(input$btn, handlerExpr = {
        output$text1 <- renderPrint(paste0("Button is clicked"))
      })
    }
  )
}

library(shiny)

ui <- fluidPage(
  my_modUI("my_mod")
)

server <- function(input, output, session) {
  my_modServer("my_mod")
}

shinyApp(ui, server)

但并没有奏效.我期待看到的是this

你能帮我解决这个使用shiny 模块的问题吗？

推荐答案

因为您在一个模块中，所以需要将按钮id包装在ns()中，您可以使用session$ns.参见关于在https://shiny.posit.co/r/articles/improve/modules/的模块中使用renderUI的部分:

my_modUI <- function(id) {
  ns <- NS(id)
  tagList(
    uiOutput(ns("ui1")),
    verbatimTextOutput(ns("text1"))
  )
}

my_modServer <- function(id) {
  moduleServer(
    id,
    function(input, output, session) {
      output$ui1 <- renderUI({
        ns <- session$ns
        
        actionButton(ns("btn"), "Click me!")
      })

      observeEvent(input$btn, handlerExpr = {
        output$text1 <- renderPrint(paste0("Button is clicked"))
      })
    }
  )
}

library(shiny)

ui <- fluidPage(
  my_modUI("my_mod")
)

server <- function(input, output, session) {
  my_modServer("my_mod")
}

shinyApp(ui, server)