Javascript R：如何减少侧边栏中菜单子项的字体大小

我正在尝试减小我闪亮应用程序侧边栏中菜单子项的字体大小

这是我的密码：

library(shiny)
library(shinydashboard)

header <- dashboardHeader(
  title = "Test Dashboard"
)

sidebar <- dashboardSidebar(
  sidebarMenu (
    menuItem("Test",startExpanded = TRUE,
             menuSubItem("Dashboard", tabName = "tab"),
             menuSubItem("Link")
    )
  )
)

body <- dashboardBody(
  tags$style(HTML(".main-sidebar { font-size: 12px; }")),
  tabItems(
    tabItem(tabName = "tab",
            box(title = "Table", width = 10, status = "warning", DT::dataTableOutput("table"))
            )
  )
  )

ui <- dashboardPage(header, sidebar, body)

server <- function(input, output) {

  output$table = DT::renderDataTable({
    DT::datatable(tabledata)
  })
}

shiny::shinyApp(ui, server)

库（闪亮）
图书馆（shinydashboard）
标题
库（闪亮）
图书馆（shinydashboard）
标题
library(shiny)
library(shinydashboard)

header <- dashboardHeader(
  title = "Test Dashboard"
)

sidebar <- dashboardSidebar(
  sidebarMenu (
    menuItem("Test",startExpanded = TRUE,
             menuSubItem("Dashboard", tabName = "tab"),
             menuSubItem("Link")
    )
  )
)

body <- dashboardBody(
  tags$style(HTML(".main-sidebar { font-size: 12px!important; }
                   .treeview-menu>li>a { font-size: 12px!important; }")),
  tabItems(
    tabItem(tabName = "tab",
            box(title = "Table", width = 10, status = "warning", DT::dataTableOutput("table"))
    )
  )
)

ui <- dashboardPage(header, sidebar, body)

server <- function(input, output) {

  output$table = DT::renderDataTable({
    DT::datatable(tabledata)
  })
}

shiny::shinyApp(ui, server)