Я хотел бы добавить ползунок на складной боковой панели.У меня возникают некоторые проблемы с отображением содержимого, связанного с 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, но я не могу получить результат, который я ищу.Хранить в моей боковой панели должно быть разборно, если я решу добавить в другой пункт меню.
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)