使用 css 样式表更改 shinyalert 'OK' 按钮 (confirmButtonCol) 的颜色
Change the color of a shinyalert 'OK' button (confirmButtonCol) using a css stylesheet
我在 shinyalert()
中使用了 className = 'alert'
属性,这样我就可以在 CSS 样式表中格式化我的 shinyalerts。我可以更改整个模式的文本和背景颜色(例如 tags$style('.alert {background-color: blue}')
),所以我知道设置 class 名称是有效的。我正在尝试更改 'OK' 按钮的颜色,但我不知道要使用什么 属性。我知道我可以在对 shinyalert()
的调用中使用 confirmButtonCol
设置按钮颜色,但如果可能的话我想使用样式表来完成它。
我的代码如下所示:
ui <- fluidPage(
tags$style('.alert {*SOME_PROPERTY*: #2874A6;}'),
actionButton('showalert', 'Show Alert'),
shinyalert::useShinyalert()
)
server <- function(input, output, session) {
observeEvent(input$showalert, {
shinyalert::shinyalert(title = 'Alert', className = 'alert')
})
}
shinyApp(ui = ui, server = server)
我想知道我可以用什么替换 SOME_PROPERTY
提前致谢!
因此 OK
按钮实际上具有 class 名称 confirm
。当你 select 它与 CSS 时,只需将它添加在你的 class 名称之后,如 .alert .confirm {...}
。另外,发现按钮颜色使用了行内样式,在所有CSS规则中优先级最高,所以需要强行覆盖为!important
.
代码
library(shiny)
ui <- fluidPage(
tags$style('.alert .confirm {background-color: #2874A6 !important;}'),
actionButton('showalert', 'Show Alert'),
shinyalert::useShinyalert()
)
server <- function(input, output, session) {
observeEvent(input$showalert, {
shinyalert::shinyalert(title = 'Alert', className = 'alert')
})
}
shinyApp(ui = ui, server = server)
我在 shinyalert()
中使用了 className = 'alert'
属性,这样我就可以在 CSS 样式表中格式化我的 shinyalerts。我可以更改整个模式的文本和背景颜色(例如 tags$style('.alert {background-color: blue}')
),所以我知道设置 class 名称是有效的。我正在尝试更改 'OK' 按钮的颜色,但我不知道要使用什么 属性。我知道我可以在对 shinyalert()
的调用中使用 confirmButtonCol
设置按钮颜色,但如果可能的话我想使用样式表来完成它。
我的代码如下所示:
ui <- fluidPage(
tags$style('.alert {*SOME_PROPERTY*: #2874A6;}'),
actionButton('showalert', 'Show Alert'),
shinyalert::useShinyalert()
)
server <- function(input, output, session) {
observeEvent(input$showalert, {
shinyalert::shinyalert(title = 'Alert', className = 'alert')
})
}
shinyApp(ui = ui, server = server)
我想知道我可以用什么替换 SOME_PROPERTY
提前致谢!
因此 OK
按钮实际上具有 class 名称 confirm
。当你 select 它与 CSS 时,只需将它添加在你的 class 名称之后,如 .alert .confirm {...}
。另外,发现按钮颜色使用了行内样式,在所有CSS规则中优先级最高,所以需要强行覆盖为!important
.
代码
library(shiny)
ui <- fluidPage(
tags$style('.alert .confirm {background-color: #2874A6 !important;}'),
actionButton('showalert', 'Show Alert'),
shinyalert::useShinyalert()
)
server <- function(input, output, session) {
observeEvent(input$showalert, {
shinyalert::shinyalert(title = 'Alert', className = 'alert')
})
}
shinyApp(ui = ui, server = server)