Украсьте активную вкладку в R блестящий tabPanel: добавить красивый внешний вид границы - PullRequest
Новая
       22

Украсьте активную вкладку в R блестящий tabPanel: добавить красивый внешний вид границы

1 голос
/ 28 октября 2019

Поскольку я изучаю R блестящий, я понимаю, как мало я знаю о CSS и HTML, и буду признателен за вашу помощь. В настоящее время я хотел бы, чтобы активная вкладка в tabPanel показывала цветную «полосу» сверху. Мое решение заключается в использовании следующего style.css 

.content-wrapper .tabbable .nav .active {
    border-top: 3px solid red;
}

Результат выглядит следующим образом: enter image description here

Это в основном то, что я хотел, за исключением того, что я хотел быхочу, чтобы красная линия была короче, не выходя за пределы самой вкладки. Я пытался изменить длину границы, но безуспешно. Любое предложение, пожалуйста? Большое спасибо!

Воспроизводимый код см. Ниже: 

library("shiny")
library("shinydashboard")


ui = dashboardPage(
    dashboardHeader(title = "Title"),
    dashboardSidebar(),
    dashboardBody(
      tags$head(
        #add css style sheet to shiny dashboard
        tags$link(rel = "stylesheet", href = "style.css")),

      tabsetPanel(
        tabPanel(title = HTML(paste("Tab A"))),
        tabPanel(title = HTML(paste("Tab B")))
    )))

server = function(input, output, session) {}

shinyApp(ui = ui, server = server)
...