如何渲染折叠菜单项中的输入小部件？

Question

我想呈现shinydashboard中折叠菜单项中的复选框菜单，但我无法让它工作。到目前为止，我只在渲染到dashboardBody时发现了类似github issue，但我无法弄清楚这将如何适用于siderbarMenu。

library('shiny') 
library("shinydashboard") 

header <- dashboardHeader() 

sidebar <- dashboardSidebar(
    sidebarMenu(
    menuItem("Inputs", icon = icon("bar-chart-o"), tabName = "tabOne", 
      uiOutput('mymenu') 
    ) 
) 
) 

body <- dashboardBody(
    h3('nothing here') 
) 

shinyApp(
    ui = dashboardPage(header, sidebar, body), 
    server = function(input, output) { 


    output$mymenu <- renderUI({ 

     checkboxGroupInput('mymenu', 'lettersMenu', 
         letters[1:5], 
         letters[1:5]) 
    }) 
    } 
) 

Answer 1

我认为这个问题是没有什么触发这个renderUI。尝试添加这对您的代码：

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

编辑

library('shiny') 
library("shinydashboard") 

header <- dashboardHeader() 

sidebar <- dashboardSidebar(
    sidebarMenu(
    menuItem("Inputs", icon = icon("bar-chart-o"), tabName = "tabOne", 
      uiOutput('mymenu') 
    ) 
) 
) 

body <- dashboardBody(
    h3('nothing here') 
) 

shinyApp(
    ui = dashboardPage(header, sidebar, body), 
    server = function(input, output) { 


    output$mymenu <- renderUI({ 

     checkboxGroupInput('mymenu', 'lettersMenu', 
         letters[1:5], 
         letters[1:5]) 
    }) 
    outputOptions(output, "mymenu", suspendWhenHidden = FALSE) 
    } 
)