R Shiny:如何减小侧边栏中菜单子项的字体大小

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sidebarMenu(
        menuItem("菜单项1"),
        menuItem("菜单项2"),
        menuItem("菜单项3")
      )
    ),
    mainPanel(
      # 应用程序的主要内容
    )
  )
)

server <- function(input, output) {
  # 服务器逻辑
}

shinyApp(ui, server)

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sidebarMenu(
        tags$style(".sidebar li a { font-size: 12px; }"),  # 设置字体大小为12px
        menuItem("菜单项1"),
        menuItem("菜单项2"),
        menuItem("菜单项3")
      )
    ),
    mainPanel(
      # 应用程序的主要内容
    )
  )
)

server <- function(input, output) {
  # 服务器逻辑
}

shinyApp(ui, server)