R Shiny Dashboard, изменить цвет для всех гиперссылок - PullRequest
Новая
       10

R Shiny Dashboard, изменить цвет для всех гиперссылок

0 голосов
/ 20 ноября 2018

Я создал несколько полей значений с гиперссылками на разные вкладки в приложении.

ui 

tags$script(HTML("
    var openTab = function(tabName){
                 $('a', $('.sidebar')).each(function() {
                 if(this.getAttribute('data-value') == tabName) {
                 this.click()
                 };
                 });
                 }
                 "))

server 

  output$tplot <- renderValueBox({
     valueBox(
     paste0(sum(rowSums(x)>0)),
     tags$p(a("Total", onclick = "openTab('metrics')", href="#"), 
     style = "color: white;"), 
     icon = icon("boxes"),
     color = "navy")
  })

Работает отлично, ногиперссылки всегда окрашены в стальной синий цвет, и это ограничивает мой выбор читаемых цветов для поля значений.

Есть ли способ изменить цвет гиперссылки?Есть ли способ установить цвет гиперссылки глобально?

1 Ответ

0 голосов
/ 20 ноября 2018

Гиперссылки имеют тег <a>.Вы можете глобально изменить цвет гиперссылки, применив к этому тегу css.Вот минимальный пример - 

library(shiny)

shinyApp(
  ui = fluidPage(
    tags$head(tags$style(HTML("a {color: red}"))),
    tags$a("click here"),
    br(),
    tags$a("click here as well")
  ),
  server = function(input, output, session) {

  }
)
...