在闪亮的仪表板标题部分内添加闪亮的小部件

问题描述 投票:1回答:1

是否可以在selectinput()标头中添加shinydashboardPlus()?我不需要shinydashboardPlus()提供的下拉菜单功能。我想要类似的东西:

enter image description here

#app.r
library(shiny)
library(shinyWidgets)
library(shinydashboard)
library(shinydashboardPlus)

shinyApp(
  ui = dashboardPagePlus(
    header = dashboardHeaderPlus(
#selectInput("variable", "Variable:",
 #           c("Cylinders" = "cyl",
  #            "Transmission" = "am",
   #           "Gears" = "gear"))
    ),
    sidebar = dashboardSidebar(),
    body = dashboardBody(
    ),
    rightsidebar = rightSidebar(),
    title = "DashboardPage"
  ),
  server = function(input, output) { }
)
r shinydashboard
1个回答
0
投票

shinydashboard有点关于dashboardHeader内容的观点,因为我尚不完全清楚。

要在标题上显示项目有两个要求。他们需要具有li标记,并且需要具有dropdown类。通常,您只能使用。您可以在其中添加要添加的小部件,然后将其添加到标题中。

示例:

dashboardHeader(
    tags$li(actionButton('whatever','whatever'),
            class= 'dropdown'))
© www.soinside.com 2019 - 2024. All rights reserved.