閃亮的tabset面板采用全寬

Question

是否可以在Shiny中使用tabset面板，而tabPanels使用完整寬度？ 是否可以將nav-fill類添加到tabsetPanel？ 還是不可能，因為Shiny是用Bootstrap 3構建的？

結果應類似於https://getbootstrap.com/docs/4.0/components/navs/#fill-and-justify

library(shiny)

ui <- fluidPage(
  tabsetPanel(
    # class = "navlist-fill",
    tabPanel("Tab 1"),
    tabPanel("Tab 2"),
    tabPanel("Tab 3")
  )
)

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

shinyApp(ui, server)

Answer 1

您發布的鏈接很有意義，並且可能是一種更好的方法。 我們可以制作一個自定義小部件來執行此操作。 目前，這是使用一些簡單CSS的解決方法。

這里的CSS選擇器非常籠統，您可能應該更具體一些，但這是一個主意。

library(shiny)

ui <- fluidPage(
  tags$head(
    tags$style(HTML("
      .nav li {
        width: 32vw;
      }
    "))),
  tabsetPanel(id = "tab_panel",
    tabPanel("Tab 1"),
    tabPanel("Tab 2"),
    tabPanel("Tab 3")
  )
)

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

shinyApp(ui, server)