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

Question

我有一个R闪亮的网页（v.0.3），在mainPanel的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"))
    )
  )
)