折り畳まれたメニュー項目に入力ウィジェットをレンダリングする方法は？

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) 
    } 
)