r闪亮-uiOutput未在menuItem内呈现

Question

问题

为什么在server 上生成并在ui 上使用uiOutput() 渲染的sliderInput() 不会显示在menuItem() 中？

示例

在这个简单的应用程序中，我在server 上生成了一个sliderInput（注意menuItem 被故意注释掉了），它按预期工作

library(shiny)
library(shinydashboard)

rm(ui, server)

ui <- dashboardPage(
    dashboardHeader(),

    dashboardSidebar(
        sidebarMenu(
            #menuItem(text = "data options",
                      checkboxGroupInput(inputId = "cbg_group1", label = "group 1", 
                                         choices = c("some","check","boxes","to","choose","from") ),
                       uiOutput("sli_val1"),
                       checkboxGroupInput(inputId = "cbg_group2", label = "group 2", 
                                          choices = c("another","set","of","check","boxes") ),
            #                ),
            menuItem(text = "another tab")
            )
    ),
    dashboardBody()
)

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

    withProgress(message = "loading page", value=0.1, {
        ## simulate loading some data
        Sys.sleep(3)

        ## slider input
        output$sli_val1 <- renderUI({
            sliderInput(inputId = "sli_val1", 
                        label = "values", min = 0, max = 100,
                        value = c(25, 75) )
        })
        setProgress(value=1, detail="Complete")
    })
}

shinyApp(ui = ui, server = server)

但是，当我将 uiOutput 移动到 menuItem( ) 内时，输出不再呈现：

ui <- dashboardPage(
    dashboardHeader(),

    dashboardSidebar(
        sidebarMenu(
            menuItem(text = "data options",
                     checkboxGroupInput(inputId = "cbg_group1", label = "group 1", 
                                        choices = c("some","check","boxes","to","choose","from") ),
                     uiOutput("sli_val1"),
                     checkboxGroupInput(inputId = "cbg_group2", label = "group 2", 
                                        choices = c("another","set","of","check","boxes") )
                             ),
            menuItem(text = "another tab")
            )
    ),
    dashboardBody()
)

Answer 1

首先，我会将uiOutput("sli_val1") 更改为uiOutput("out_sli_val1")，以防止重复ID。

关于您的问题：当 Shiny 遍历文档并渲染/绑定所有可能的输出时，这是一件奇怪的事情。默认操作是忽略所有隐藏的输出元素 - 这意味着不完全忽略（输出“sli_val1”绑定好了），但它们的功能被暂停，不让子元素被渲染。

所以问题是，在启动时，此输出隐藏在子项树中，并从那里被忽略。

可以通过调用取消设置此暂停行为来完成修复

outputOptions(output, "out_sli_val1", suspendWhenHidden = FALSE)

但是如何以及在哪里？必须在运行“数据加载”之前设置此选项。但是如果output$out_sli_val1 没有分配任何东西（是NULL），它会抛出错误。为了避免这种情况，可以初始化一个空的 UI 块，它在“数据加载”时被覆盖。

这是你的最小修复，额外增加 2 行代码（和修改后的输出 ID）：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu(
      menuItem(text = "data options", 
        checkboxGroupInput(inputId = "cbg_group1", label = "group 1", 
                           choices = c("some","check","boxes","to","choose","from") ),
        uiOutput("out_sli_val1"),
        checkboxGroupInput(inputId = "cbg_group2", label = "group 2", 
                           choices = c("another","set","of","check","boxes") )
      ),
      menuItem(text = "another tab")
    )
  ),
  dashboardBody()
)

server <- function(input, output, session){
  output$out_sli_val1 <- renderUI({})
  outputOptions(output, "out_sli_val1", suspendWhenHidden = FALSE)

  withProgress(message = "loading page", value=0.1, {
    ## simulate loading some data
    Sys.sleep(3)

    ## slider input
    output$out_sli_val1 <- renderUI({
      sliderInput(inputId = "sli_val1", label = "values", min = 0, max = 100, value = c(25, 75) )
    })

    setProgress(value=1, detail="Complete")
  })
}

shinyApp(ui = ui, server = server)