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

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

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

How to render an input widget in a collapsed menu item?

r

shiny

shinydashboard

编辑