[英]Shiny Dashboard menu Item
闪亮的仪表板中的菜单项在每个订单项旁边都有一个小白点。 我们可以禁用/删除这些白点吗? 下面是屏幕截图。
以下是要测试的示例代码。
ui.R
header <- dashboardHeader(title="Dashboard")
sidebar <- dashboardSidebar(
menuItem("Menu1",icon = icon("dashboard"),
menuSubItem("Sub1", icon = icon("dashboard")),
menuSubItem("Sub2", icon = icon("dashboard")),
menuSubItem("Sub3", icon = icon("dashboard"))
),
menuItem("Menu2",icon = icon("dashboard"),
menuSubItem("Sub12", icon = icon("dashboard")),
menuSubItem("Sub22", icon = icon("dashboard")),
menuSubItem("Sub32", icon = icon("dashboard"))))
body <- dashboardBody()
dashboardPage(header, sidebar, body)
server.R
server <- function(input, output) {}
编辑:@Batanichek的澄清评论的屏幕截图
您忘记了sidebarMenu
尝试
sidebar <- dashboardSidebar(sidebarMenu(
menuItem("Menu1",icon = icon("dashboard"),
menuSubItem("Sub1", icon = icon("dashboard")),
menuSubItem("Sub2", icon = icon("dashboard")),
menuSubItem("Sub3", icon = icon("dashboard"))
),
menuItem("Menu2",icon = icon("dashboard"),
menuSubItem("Sub12", icon = icon("dashboard")),
menuSubItem("Sub22", icon = icon("dashboard")),
menuSubItem("Sub32", icon = icon("dashboard")))))
要移动子菜单,请尝试编辑CSS,例如
body <- dashboardBody(tags$style(HTML(".sidebar-menu .treeview-menu{ padding: 0 0 0 50px;}")))
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.