突出显示活动标签答案

【问题标题】：Highlight active tabs突出显示活动标签
【发布时间】：2020-03-03 14:02:16
【问题描述】：

想检查我们是否可以突出显示活动标签。我的意思是当用户在一个选项卡（“啊”）中时，该选项卡应该加下划线。其他选项卡也是如此。下面的代表

app.R

library(shiny)

shinyApp(
    navbarPage(
        tags$head(
            tags$style(
                HTML(".tabbable > .nav > li[class=active] > a {text-decoration: underline}")
            )
        ),
        tabPanel("Tab1"),
        tabPanel("Tab2"),
        tabsetPanel(
            tabPanel("agh",
                     numericInput("n", "Number to add", 5),
                     actionButton("add", "Add"),
                     verbatimTextOutput("sum", placeholder = TRUE)
            ),
            tabPanel("dfd")
        )
    ),
    function(input, output, session) {
        nums <- numeric()

        c_sum <- eventReactive(input$add, {
            nums <<- c(nums, input$n)
            sum(nums)
        })

        output$sum <- renderText({
            c_sum()
        })

    }
)

【问题讨论】：

添加闪亮的标签。另外，通过突出显示/下划线，您指的是选项卡的标题？那么从 "agh" 到 "agh" ？
是的，你是对的。它应该是 ahg（下划线）。有可能吗？
是的。您可以使用 HTML/CSS 更改应用程序和每个选项卡中的所有格式。我粘贴了一个已经回答的例子：*.com/questions/35025145/…

标签： r shiny

【解决方案1】：

library(shiny)

shinyApp(
  fluidPage(
    tags$head(
      tags$style(
        HTML(".tabbable > .nav > li[class=active] > a {text-decoration: underline}")
      )
    ),
    br(),
    tabsetPanel(
      tabPanel("agh",
               numericInput("n", "Number to add", 5),
               actionButton("add", "Add"),
               verbatimTextOutput("sum", placeholder = TRUE)
      ),
      tabPanel("dfd")
    )
  ),
  function(input, output, session) {
    nums <- numeric()

    c_sum <- eventReactive(input$add, {
      nums <<- c(nums, input$n)
      sum(nums)
    })

    output$sum <- renderText({
      c_sum()
    })

  }
)

【讨论】：

感谢它的工作。但实际上我将相同的内容复制到了 navbarpage。它不起作用。我已经为你编辑了我的问题。你能帮我么。那么对于tab1和tab2我们可以应用相同的逻辑吗
@imranp 你能试试HTML(".nav > li[class=active] > a {text-decoration: underline}").
非常感谢。你能解释一下吗？有什么不同？为什么早期的代码不起作用