闪亮的仪表板菜单项

Question

闪亮仪表板中的菜单项在每个订单项旁边都有一个小白点。我们可以禁用/删除这些白点。以下是截图。

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

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