是否可以在selectinput()
标头中添加shinydashboardPlus()
?我不需要shinydashboardPlus()
提供的下拉菜单功能。我想要类似的东西:
#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) { }
)
shinydashboard有点关于dashboardHeader内容的观点,因为我尚不完全清楚。
要在标题上显示项目有两个要求。他们需要具有li
标记,并且需要具有dropdown
类。通常,您只能使用。您可以在其中添加要添加的小部件,然后将其添加到标题中。
示例:
dashboardHeader(
tags$li(actionButton('whatever','whatever'),
class= 'dropdown'))