4

我有一个 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>)")
4

1 回答 1

6

使用 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"))
    )
  )
)
于 2013-11-06T14:37:46.350 回答