如何在折叠的菜单项中呈现输入窗口小部件？

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