在一行中对齐所有 tabPanels R Shiny

Aligning all the tabPanels in one line R Shiny

我正在尝试将 tabPanelstabBox 对齐在同一行上,即使 window 大小已更改。 有什么办法吗?

请指教

Rshiny 代码:

library(shiny)
library(shinydashboard)

body <- dashboardBody(
  fluidRow(

    tabBox(
      height = "250px",
      selected = "Tab3",
      tabPanel("Tabasdasd1", "Tab content 1"),
      tabPanel("Tabadad2", "Tab content 2"),
      tabPanel("Tabasdasd3", "Tab content 3"),
      tabPanel("Tabasdas4", "Tab content 4"),
      tabPanel("Tabasdas5", "Tab content 5"),
      tabPanel("Tabadasd6", "Tab content 6"),
      tabPanel("Tabasdas7", "Tab content 7"),
      tabPanel("Tabasdafsds7", "Tab content 8"),
      tabPanel("Tabasdassa", "Tab content 9")

    )
  )
)

shinyApp(
  ui = dashboardPage(dashboardHeader(title = "tabBoxes"), dashboardSidebar(), body),
  server = function(input, output) {
    # The currently selected tab from the first box

  }
)

有滚动条:

library(shiny)
library(shinydashboard)

body <- dashboardBody(
    fluidRow(

        tabBox(
            height = "250px",
            selected = "Tabasdasd3",
            tabPanel("Tabasdasd1", "Tab content 1"),
            tabPanel("Tabadad2", "Tab content 2"),
            tabPanel("Tabasdasd3", "Tab content 3"),
            tabPanel("Tabasdas4", "Tab content 4"),
            tabPanel("Tabasdas5", "Tab content 5"),
            tabPanel("Tabadasd6", "Tab content 6"),
            tabPanel("Tabasdas7", "Tab content 7"),
            tabPanel("Tabasdafsds7", "Tab content 8"),
            tabPanel("Tabasdassa", "Tab content 9")

        ),
        tags$head(
            tags$style(
                'ul.nav.nav-tabs {
                    overflow-y: hidden;
                    display: flex;
                }'
            )
        )
    )
)

shinyApp(
    ui = dashboardPage(dashboardHeader(title = "tabBoxes"), dashboardSidebar(), body),
    server = function(input, output) {
        # The currently selected tab from the first box

    }
)

已使用 Chrome DevTools 进行测试以在不同设备上查看并且在移动设备上看起来不错:

在普通电脑上: