如何在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)