r - R shinydashboard 嵌套框在展开时未呈现最初折叠主框

Question

在应用程序dashboardPage的包shinydashboard中shiny，当使用嵌套框时，默认情况下未折叠的内框不会在主框（最初是折叠的）未折叠时呈现。

注 1：折叠和展开内框会触发渲染，但显然会降低用户体验。

这是一个MWE：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
    dashboardHeader(disable = TRUE), dashboardSidebar(disable = TRUE),
    dashboardBody(
        fluidRow(
            box(
                title = "Inputs", collapsible = TRUE, collapsed = TRUE,
                width = 12,
                box(
                    title = "Test", collapsible = TRUE, collapsed = FALSE,
                    uiOutput("test1_ui"),
                    uiOutput("test2_ui")
                )
            )
        )
    )
)

server <- function(input, output, session) {
    output$test1_ui <- renderUI({
        tagList("RENDER ME")
    })
    output$test2_ui <- renderUI({
        actionButton("click", label = "Click Me")
    })
}

shinyApp(ui, server)

会话信息：

• Ubuntu 18.04
• R 4.1.0
• 闪亮的仪表板 0.7.1 和闪亮的 1.6.0

注 2：在更新到 R 4.1.0 之前观察到同样的问题

注意 3：此问题已在此处提出，但我真的不确定如何使用建议的解决方法。

问题：有人有解决方案吗？或者可以解释这里建议的解决方法？

标签： rshinyshinydashboard