Как стилизовать кнопку «Загрузить» в приложении Shiny - PullRequest
Новая
       8

Как стилизовать кнопку «Загрузить» в приложении Shiny

1 голос
/ 25 марта 2020

Я создал download button в своем приложении Shiny. Однако я хочу НЕ изменять цвет фона при нажатии, чего здесь не происходит. Ниже мое приложение - 

library(shiny)
library(shinydashboard)
ui <- shinyUI( dashboardPage(
  dashboardHeader(
    title="Styling Download Button"
  ),
  dashboardSidebar(
    tags$style(type="text/css", "#download1 {background-color:rgba(0,0,0,0);color: black;font-family: Courier New}"),
    downloadButton("download1", label="Download with style", class = "butt1")
  ),
  dashboardBody()
))
#server.r
server <- shinyServer(function(input, output) {})

shinyApp(ui, server)

Любая идея о том, как сохранить одинаковый цвет фона при нажатии, будет очень полезна.

Спасибо,

1 Ответ

0 голосов
/ 26 марта 2020

Вы можете убедиться, что стиль #download1:active (при нажатии) равен стилю #download1 (нормальный), следующим образом.
В приведенном ниже примере я также убедился, что border-color зафиксирован так, что нет эффект щелчка виден вообще. 

library(shiny)
library(shinydashboard)
ui <- shinyUI( dashboardPage(
  dashboardHeader(
    title="Styling Download Button"
  ),
  dashboardSidebar(
    tags$style(type="text/css",
               "#download1, #download1:active  {
      background-color:rgba(0,0,0,0);
      color: black;
      font-family: Courier New;
      border-color: #ddd;
      -webkit-box-shadow: 0px;
      box-shadow: 0px;
    }
   "),
    downloadButton("download1", label="Download with style", class = "butt1")
  ),
  dashboardBody()
))
#server.r
server <- shinyServer(function(input, output) {})

shinyApp(ui, server)
...