闪亮的仪表板菜单项

Question

闪亮仪表板中的菜单项在每个行项目旁边都有一个小白点。我们可以 disable/remove 这些白点吗？下面是截图。

下面是要测试的示例代码。

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

的澄清评论的截图

Answer 1

你忘了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;}")))

闪亮的仪表板菜单项

Shiny Dashboard menu Item

r

shiny

shinydashboard