r - 如何获取 R Shiny 中所有输出元素的列表

Question

如何获取 react 输出元素的列表？

没有问题的工作是:observe(print(reactiveValuesToList(input)) )
由于我不明白的原因不起作用的是:observe( print(reactiveValuesToList(output)) )
对于一个大型复杂的应用程序，我正在编写一个智能代码，它在 A 部分将所有反应值和所有输入保存为 rds带有 saveRDS 的文件
我的 reactivevalues是这样 build 的； values <- reactivevalues()
B 部分使用 readRDS 加载所有这些值。无功values$x被重新分配并且 input$x 通过例如 updateTextinput(session, inputID, value) 更新，由于某些奇怪的原因，它也适用于 selectInput元素，但这与我面临的问题无关。

我的应用程序还包含 renderUI元素和 renderText元素

要更新这些元素，我需要设置选项:

outputOptions(output, x, suspendWhenHidden = FALSE)}

在哪里 x是元素的名称。然而，我有几十个这样的元素，并想应用这个 suspendWhenHidden 的设置列表的选项。但是，试图获取 outputs 的列表不起作用:
observe( print(reactiveValuesToList(output)) )
如何获取所有渲染元素/所有输出元素的列表？

一个演示应用程序，展示它如何用于输入，但不适用于输出元素

library(shiny) 

rm(list = ls(), envir = globalenv())              ## to prevent cross over from old runs

ui <- dashboardPage(
  dashboardHeader(title = "Dummy App"),
  dashboardSidebar(
    sidebarMenu(id = "tabs",
                menuItem("HOME", tabName = "Home", icon = icon("home")),
                menuItem("Page", tabName = "page1", icon = icon("pie-chart"))
    ) ),
  dashboardBody(
   tabItems(
      tabItem(tabName = 'Home', 
                              br(), 
                              h1("WELCOME TO THE TEST APP", style = 'text-align: center;' )

      ),
      tabItem(tabName = 'page1',
       fluidRow(
         uiOutput("BatchName")
    )))))



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

output$BatchName <- renderUI({ textInput(inputId ="BatchName", label = NULL , placeholder = "start") })


observe(print(reactiveValuesToList(input)) )
observe( print(reactiveValuesToList(output)) )

outputOptions(output, "BatchName", suspendWhenHidden = FALSE)  ## without this line updating elements on page 2 and higher doesn't work as they are suspenWhenHidden = True by default
updateTextInput(session, inputId = "BatchName", value = "Updated") 

    }
shinyApp(ui, server)

Answer 1

查看 ?outputOptions 的文档，如果您不传递名称，您将获得所有可能输出选项的列表。然后您可以迭代该列表以设置您想要的所有属性。

outs <- outputOptions(output)
lapply(names(outs), function(name) {
  outputOptions(output, name, suspendWhenHidden = FALSE) 
})