编辑：对于光泽版本> = 0.14，请参见此处。
如果您选择“活动”类的链接作为导航的直接后代，我认为您可以得到想要的。用户界面看起来像
ui <- shinyUI( fluidPage( tags$style(HTML(" .tabs-above > .nav > li[class=active] > a {background-color: #000;color: #FFF; }")), tabsetPanel( tabPanel( title = "Hello", textInput(inputId = "text", label = "Input") ), tabPanel( title = "World" ) ) ))
