From fe1bd6c25e33dfd35a3bdc6b935d704b21a296de Mon Sep 17 00:00:00 2001 From: Craig Williams Date: Thu, 5 Feb 2026 11:23:00 +0000 Subject: [PATCH] Added missing "secondary" bootstrap button style --- R/htmlClassManipulation.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/htmlClassManipulation.R b/R/htmlClassManipulation.R index 04db5da..0869b94 100644 --- a/R/htmlClassManipulation.R +++ b/R/htmlClassManipulation.R @@ -41,7 +41,8 @@ htmlRemoveClasses <- function(el, classes) { #' htmlButtonStyle(x, "warning") htmlButtonStyle <- function(el, style) { 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 <- htmlAddClasses(el, paste0("btn-", style))