R闪亮的tabset标题修改字体大小

Question

我有一个R闪亮的网页（v.0.3），在主面板的tabsetPanel内有一堆tabPanel。选项卡集合在页面顶部占用了大量空间，因此我正在寻找缩小它们的方法。

我想更改tabPanel标题的字体大小，以便它们不占用太多空间，但似乎第一个参数，标题，只接受文字，而不是HTML（）。

有什么想法吗？

示例：

# Default
tabPanel("I like turtles")
# doesnt work
tabPanel(HTML("I like turtles"))
# or
tabPanel(HTML("<span style='font-size:10px'>I like turtles</span>)")

Answer 1

使用css：

library(shiny)

shinyUI(pageWithSidebar(
  headerPanel("Hello Shiny!"),
  sidebarPanel(),
  mainPanel(
    tags$head(
      tags$style(type='text/css', 
                 ".nav-tabs {font-size: 10px} ")),    
      tabsetPanel(tabPanel("Plot"))
    )
  )
)