Измените цвет кнопки действия в блестящей

Я пытаюсь изменить цвет кнопки действия от серого до оранжевого.

actionButton("run","Run Analysis")

(Это находится в server.R.) Можно ли изменить его цвет?

Ответы

Ответ 1

Как упоминалось в @MLavoie, вы можете встроить CSS в свое блестящее приложение, используя tags$head, попробуйте следующее:

library(shiny)

ui <- shinyUI(fluidPage(
  tags$head(
    tags$style(HTML('#run{background-color:orange}'))
  ),
  actionButton("run","Run Analysis")
))
server <- shinyServer(function(input, output) {

})
shinyApp(ui, server)

Если ваш незнакомый CSS, w3schools имеет действительно хорошие и легкие учебные пособия.

Ответ 2

Ниже я сделал вашу кнопку действий похожим на кнопку отправки (также добавив font-awesome icon):

actionButton("run", "Run Analysis", icon("paper-plane"), 
    style="color: #fff; background-color: #337ab7; border-color: #2e6da4")