Изменение цвета фона в downloadButton

Question

Как изменить цвет фона кнопки ниже.

Вот код, который вы можете запустить, и вы можете увидеть фон кнопки по-прежнему белый, но он зеленый цвет

ui.r

library(shinydashboard) 


dashboardPage(skin="black", 
    dashboardHeader(title = "Basic dashboard"), 
    dashboardSidebar(
    sidebarMenu(
     menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")), 
     menuItem("Widgets", tabName = "widgets", icon = icon("th")), 
     menuItem(downloadButton('downloadData', label= 'Download', class= "mybutton")) 
    ), 
     tags$head(tags$style(".mybutton{background-color:red;} .skin-black .sidebar .mybutton{color: green;}")) 

    ), 
    dashboardBody(
    # Boxes need to be put in a row (or column) 
    fluidRow(
     box(plotOutput("plot1", height = 250)), 

     box(
     title = "Controls", 
     sliderInput("slider", "Number of observations:", 1, 100, 50) 
    ) 
    ) 
) 
) 

server.r

function(input, output,session) { 
    set.seed(122) 
    histdata <- rnorm(500) 

    output$plot1 <- renderPlot({ 
    data <- histdata[seq_len(input$slider)] 
    hist(data) 
    }) 

    output$downloadData <- downloadHandler(

    filename = function() { 
     paste("test", '.csv', sep='') 
    }, 
    content = function(file) { 
     write.csv(c(1,2,3,4), file) 
    } 
) 
} 

код для запуска приложения

library(shiny) 
runApp("C://Users/me/PathToProject") 

Вот что возвращается. вы можете увидеть фон белый, а текст зеленый

Answer 1

Даже я столкнулся с такой же проблемой. Вы можете попробовать код, упомянутый ниже, это наверняка сработает для вас:

downloadButton('downloadData', 'Download', class = "butt"), 
tags$head(tags$style(".butt{background-color:#add8e6;} .butt{color: #337ab7;}"))