在可折叠的侧边栏闪亮中添加滑块输入

Question

我想在可折叠的侧边栏中添加一个滑块。我在显示与主体中的tabName关联的内容时遇到了一些问题。就是当我单击选项卡时，正文中的内容不显示。

这是代码，以及当我们注释掉滑块输入时的外观。

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Dynamic Menu"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("hello", tabName = "helloWorld", icon = icon("calendar")#,
              #sliderInput("slide", "chose Slide", min = 5, max = 10, value = 10)
              )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "helloWorld",
              tags$h1("hey")
      )
    )
  )
)

server <- function(input, output, session){



}

shinyApp(ui, server)

如果使用滑块输入，主体将消失。我尝试使用一些Java脚本，但似乎无法获得所需的结果。如果我决定添加另一个menuItem，则保留在侧边栏中应该是可折叠的。

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Dynamic Menu"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("hello", tabName = "helloWorld", icon = icon("calendar"),
              sliderInput("slide", "chose Slide", min = 5, max = 10, value = 10)
              )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "helloWorld",
              tags$h1("hey")
      )
    )
  )
)

server <- function(input, output, session){



}

shinyApp(ui, server)

Answer 1

如果您完全移除tabItems和tabItem身体怎么办？

尝试一下：

dashboardBody(
    tags$h1("hey")
  )

还是要根据选择的menuItem具有多个正文？