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

如何在R中将选项卡移动到侧边栏的底部?,r,shiny,dashboard,shinydashboard,sidebar,R,Shiny,Dashboard,Shinydashboard,Sidebar,我有一个闪亮的仪表板,它是用shinyDashboardPlus构建的。我有一个带有几个标签的侧边栏——和往常一样,它们在左上角对齐 我的侧边栏滚动已通过style=“position:fixed;”“修复 我想添加一个“帮助/联系人”选项卡,但我希望它位于侧边栏的左下角。我该怎么做?您必须通过css设置相应的li标记的样式 请检查以下内容: library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHe

我有一个闪亮的仪表板,它是用
shinyDashboardPlus
构建的。我有一个带有几个标签的侧边栏——和往常一样,它们在左上角对齐

我的侧边栏滚动已通过
style=“position:fixed;”“
修复


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

您必须通过css设置相应的li标记的样式

请检查以下内容:

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)
库(闪亮)
图书馆(shinydashboard)

ui您必须通过css设置相应li标记的样式

请检查以下内容:

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)
库(闪亮)
图书馆(shinydashboard)

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