如何将标签移动到 R Shiny 侧边栏的底部？答案

【问题标题】：How to move a tab to the bottom of the sidebar in R Shiny?如何将标签移动到 R Shiny 侧边栏的底部？
【发布时间】：2021-01-03 06:14:09
【问题描述】：

我有一个用shinyDashboardPlus 构建的闪亮仪表板。我有一个带有多个标签的侧边栏 - 像往常一样，它们在左上角对齐。

我的侧边栏滚动是用style = "position: fixed;" 修复的。

我想添加一个帮助/联系人选项卡，但我希望它位于侧边栏的左下角。我该怎么做？

【问题讨论】：

标签： r shiny dashboard shinydashboard sidebar

【解决方案1】：

您必须通过 css 设置相应的 li-tag 样式。

请检查以下内容：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Simple tabs"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
      menuItem("Widgets", icon = icon("th"), tabName = "widgets",
               badgeLabel = "new", badgeColor = "green")
    )
  ),
  dashboardBody(
    tags$head(
      tags$style(HTML("
      #sidebarItemExpanded > ul > :last-child {
        position: absolute;
        bottom: 0;
        width: 100%;
        background-color: red;
      }

    "))),
    tabItems(
      tabItem(tabName = "dashboard",
              h2("Dashboard tab content")
      ),
      tabItem(tabName = "widgets", id = "widgetstabid",
              h2("Widgets tab content")
      )
    )
  )
)

server <- function(input, output, session) {
  
}

shinyApp(ui, server)

【讨论】：

谢谢。我不熟悉 CSS，但我尝试了这个并发现了两个问题：（1）当侧边栏位置固定（无滚动）时，这不起作用，结果最后一个选项卡标题覆盖在第二个 -最后一个标签标题； (2) 如果仪表板正文内容的长度超过一个屏幕，位于侧边栏左下角的选项卡标题将从第一个屏幕消失并一直向下 - 只有在向下滚动后才可见。另外，您如何在底部定位多个标签标题？
您应该发布一个后续问题，而不是向现有问题添加几个新要求。除非你把它写在这里，否则我猜不出你想要什么。此外，请提供显示问题的示例代码。