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"))
    )
  )
)