Меню «Блестящая панель» Пункт

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) {} 

EDIT: Скриншот для осветления комментарий к @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;}")))