Rシャイニー：中央のタブセットパネルラベル

Question

tabsetPanelで表示できるラベルの中央に配置するにはどうすればよいですか？現在、私はrenderUIを使用して、タブを定義します。

output$uiTabs <- renderUI({ 
tabsetPanel(tabPanel("visualization1",tableOutput("table1")), 
      tabPanel("visualization2",tableOutput("table2"))) }) 

は、次にUIで、私はこのようなものがあります：

column(8,align="center", 
      uiOutput("uiTabs")) 

を今のテーブルは中央揃えではなく、タブそのものです。

Answer 1

は、ここではそれが空/ unclickable tabPanelsを作成することは可能ですOP

#tabsetPanel holds all of the tabs 

tabsetPanel( 

#create an empty tab with white text being the label 
#Inserting more text will increase the width of the label 

      tabPanel(tags$div( 

       HTML(paste(tags$span(style="color:white", "TYPE A LONG STRING HERE TO SPACE ACCORDINGLY"), sep = "")) 

      )), 

#Other tabpanels 

      tabPanel("visualization1",tableOutput("table1")), 

      tabPanel("visualization2",tableOutput("table2")), 

#Make sure to keep the selected = "tabPanel id" here because 
#it will default select the empty panel 

selected = "visualization1")