设置shinydashboard侧边栏中的按钮位置

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu(
      menuItem("按钮1", tabName = "tab1", icon = icon("dashboard")),
      menuItem("按钮2", tabName = "tab2", icon = icon("chart-bar"))
    )
  ),
  dashboardBody(
    # 页面内容
  )
)

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

shinyApp(ui, server)

dashboardBody(
  tabItems(
    tabItem(tabName = "tab1",
            # 按钮1对应的内容
    ),
    tabItem(tabName = "tab2",
            # 按钮2对应的内容
    )
  )
)