重用模块中定义的反应元素

Question

我正在制作一个应用程序，用户可以在其中创建任意数量的表格，并显示使用shinymeta 重新制作每个单独表格所需的代码。我可以为这些表中的每一个生成代码，但是当我想创建一个显示每个表的每个代码的完整模式时遇到了问题。

为了更清楚，这里有一个可重现的例子：

library(shiny)
library(dplyr)
library(shinymeta)

module_ui <- function(id){
  ns <- NS(id)

  tagList(
    fluidRow(
      actionButton(ns("show_table"), "Show table"),
      actionButton(ns("show_code"), "Show code"),
      tableOutput(ns("table"))
    )
  )
}

module_server <- function(input, output, session){
  data <- metaReactive2({
    req(input$show_table)

    isolate(metaExpr({
      mtcars 
    }))
  })

  data2 <- metaReactive({
    ..(data()) %>%
      select(mpg)
  })

  output$table <- renderTable({
    data2()
  })

  observeEvent(input$show_code, {
    showModal(modalDialog(
      renderPrint({
        expandChain(data(), data2())
      })
    ))
  })

  return(data())
}

ui <- fluidPage(
  actionButton("launch", "Launch"),
  actionButton("show_full_code", "Show the full code (at least 2 'launch' before)")
)

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

  count <- reactiveValues(value = 0)

  observeEvent(input$launch, {
    count$value <- count$value + 1
    insertUI(selector = "#show_full_code",
             where = "afterEnd",
             ui = module_ui(paste0("x", count$value)))
    callModule(module_server, paste0("x", count$value))
  })

  #### "Merge" the single code modals in one big
  observeEvent(input$show_full_code, {
    showModal(modalDialog(
      renderPrint({
        expandChain(x1_data)
      })
    ))
  })

}

shinyApp(ui, server)

当您单击“启动”时，会生成两个按钮，您可以显示一个表格（“显示表格”）和重新制作该表格的代码（“显示代码”）。可以无限点击“Launch”，表格将命名为x1_data、x2_data等。

但是，当我尝试生成合并每个单独代码的代码时（通过单击“显示完整代码”），找不到x1_data。使用x1_data() 也不起作用。我不喜欢在一篇文章中问两个问题，但我现在会这样做：

• 如何访问在模块中创建的反应性元素？
• 如何将每个单独的代码“合并”成一个大代码？

也在RStudio Community问过

编辑：在评论之后，我在示例中添加了第二个反应式表达式，因此我不能对它们都使用return。

Answer 1

好的，我想出了一个答案，让模块返回 expandChain() 结果，而不是尝试在服务器中再次呈现它们：

library(shiny)
library(dplyr)
library(shinymeta)

module_ui <- function(id){
  ns <- NS(id)

  tagList(
    fluidRow(
      actionButton(ns("show_table"), "Show table"),
      actionButton(ns("show_code"), "Show code"),
      tableOutput(ns("table"))
    )
  )
}

module_server <- function(input, output, session){
  data <- metaReactive2({
    req(input$show_table)

    isolate(metaExpr({
      mtcars 
    }))
  })

  data2 <- metaReactive({
    ..(data()) %>%
      select(mpg)
  })

  output$table <- renderTable({
    data2()
  })

  observeEvent(input$show_code, {

    showModal(modalDialog(
      renderPrint({
        expandChain(data(), data2())
      })
    ))


  })
  ########################################
  ### create list of reactive objects ####
  ########################################
  return(list(
    expandChain(data(), data2())
  )
  )

}

ui <- fluidPage(
  actionButton("launch", "Launch"),
  actionButton("show_full_code", "Show the full code (at least 2 'launch' before)")
)

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

  count <- reactiveValues(value = 0)


  observeEvent(input$launch, {
    count$value <- count$value + 1
    insertUI(selector = "#show_full_code",
             where = "afterEnd",
             ui = module_ui(paste0("x", count$value)))
     callModule(module_server, paste0("x", count$value))


  })

  #### "Merge" the single code modals in one big list object
  my_data <- reactive({
    req(count$value)

    my_set <- 1:count$value

    ### lapply through the different name spaces so all are captured ###     
    final <- lapply(my_set, function(x){
      temp <- callModule(module_server, paste0("x", x))
      return(temp)
    })

    return(final)
  })


  #### "Merge" the single code modals in one big
  observeEvent(input$show_full_code, {
    showModal(modalDialog(
      renderPrint({

        temp <- sapply(unlist(my_data()), function(x){
          print(x)
        })

      })
    ))
  })

}

shinyApp(ui, server)