Question

如何获取无功输出元素列表？

没有问题的方法是：observe(print(reactiveValuesToList(input)) )

由于我不理解的原因不起作用的是：observe( print(reactiveValuesToList(output)) )

对于大型复杂应用，我正在编写一个智能代码，在A部分中将所有反应值和所有输入保存为rds文件saveRDS 我的reactivevalues是这样构建的; values <- reactivevalues()

B部分使用readRDS加载所有这些值。反应values$x被重新分配，输入$ 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) 
})

如何获取R Shiny

1 个答案: