如何将选项卡移动到R Shiny中侧边栏的底部？

sidebarLayout(
  sidebarPanel(
    # 侧边栏内容
  ),
  mainPanel(
    # 主要区域内容
  )
)

sidebarPanel(
  tabsetPanel(
    # 选项卡内容
  )
)

sidebarPanel(
  tabsetPanel(
    # 选项卡内容
  ),
  position = "bottom"
)

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      tabsetPanel(
        tabPanel("Tab 1", "Content 1"),
        tabPanel("Tab 2", "Content 2"),
        tabPanel("Tab 3", "Content 3")
      ),
      position = "bottom"
    ),
    mainPanel(
      # 主要区域内容
    )
  )
)

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

shinyApp(ui, server)