如何在R闪亮中对齐tabsetpanel“药丸”中心

Question

我正在尝试将 tabsetpanel “药丸”放在闪亮的中心对齐，但它总是在左侧位置。 这是代码示例，有人知道如何对齐此按钮或药丸中心吗？

library(shiny)
ui <- fluidPage(
  tabPanel(title = "Hello world", value = "HB", 
           tabsetPanel(id="subtabs", type="pills", 
                       tabPanel(title = "TAB 1", value = "ILPF", 
                                br(),
                                h4("I like Pink floyd, my favourite album is 'The dark side of the moon'", style = "color:grey", align = "center"),
                                br()
                       ),
                       tabPanel(title = "TAB 2", value = "FS",  
                                br(),
                                h4("But my favourite song is 'Shine on you crazy diamond'", style = "color:grey", align = "center"),
                                br()
                                )
                       )
           )
)

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

药丸应该在页面中间

Answer 1

您可以通过向您的应用添加一些 CSS 来实现。 tags$style('ul.nav-pills{display: flex !important;justify-content: center !important;}')可以解决问题。

library(shiny)
ui <- fluidPage(
  tags$head(
    tags$style('
    ul.nav-pills{
      display: flex !important;
      justify-content: center !important;
    }')
  ),
  tabPanel(title = "Hello world", value = "HB", 
           tabsetPanel(id="subtabs", type="pills", 
                       tabPanel(title = "TAB 1", value = "ILPF", 
                                br(),
                                h4("I like Pink floyd, my favourite album is 'The dark side of the moon'", style = "color:grey", align = "center"),
                                br()
                       ),
                       tabPanel(title = "TAB 2", value = "FS",  
                                br(),
                                h4("But my favourite song is 'Shine on you crazy diamond'", style = "color:grey", align = "center"),
                                br()
                       )
           )
  )
)

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