R/AVSDevR.HTMLUtils
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added missing "secondary" bootstrap button style

Browse Source
This commit is contained in:
Craig Williams
2026-02-05 11:23:00 +00:00
parent 0d4b0e362b
commit fe1bd6c25e
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
R/htmlClassManipulation.R
View File

@@ -41,7 +41,8 @@ htmlRemoveClasses <- function(el, classes) {
#' htmlButtonStyle(x, "warning") #' htmlButtonStyle(x, "warning")
htmlButtonStyle <- function(el, style) { htmlButtonStyle <- function(el, style) {
stopifnot(style %in% c( stopifnot(style %in% c(
"default", "primary", "info", "warning", "success", "danger", "link" "default", "primary", "secondary", "info", "warning", "success", "danger",
"link"
)) ))
el <- htmlRemoveClasses(el, "btn-default") el <- htmlRemoveClasses(el, "btn-default")
el <- htmlAddClasses(el, paste0("btn-", style)) el <- htmlAddClasses(el, paste0("btn-", style))