From 90245930cfffd726b19adaae7ab94d06e244ee34 Mon Sep 17 00:00:00 2001
From: Stefan Fritsch <stefan.fritsch@stat-up.com>
Date: Fri, 8 Nov 2019 14:28:31 +0100
Subject: [PATCH] Parameter to add css classes to a bs4Card()

---
 R/cards.R      |  7 ++++++-
 man/bs4Card.Rd | 10 ++++++----
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/R/cards.R b/R/cards.R
index a6f0008a..8f456081 100644
--- a/R/cards.R
+++ b/R/cards.R
@@ -13,6 +13,7 @@
 #' TRUE by default
 #' @param gradientColor If NULL (the default), the background of the box will be
 #'   white. Otherwise, a color string. "primary", "success", "warning" or "danger".
+#' @param class A character string that will be added to the card's list of css classes.
 #' @param width The width of the box, using the Bootstrap grid system. This is
 #'   used for row-based layouts. The overall width of a region is 12, so the
 #'   default width of 4 occupies 1/3 of that width. For column-based
@@ -129,7 +130,7 @@
 #' @export
 bs4Card <- function(..., inputId = NULL, title = NULL, footer = NULL, status = NULL, elevation = NULL,
                     solidHeader = FALSE, headerBorder = TRUE, gradientColor = NULL, 
-                    width = 6, height = NULL, collapsible = TRUE, collapsed = FALSE, 
+                    class = NULL, width = 6, height = NULL, collapsible = TRUE, collapsed = FALSE, 
                     closable = TRUE, maximizable = FALSE, labelStatus = NULL, labelText = NULL, 
                     labelTooltip = NULL, dropdownMenu = NULL, dropdownIcon = "wrench",
                     overflow = FALSE, enable_sidebar = FALSE, sidebar_content = NULL, 
@@ -157,6 +158,10 @@ bs4Card <- function(..., inputId = NULL, title = NULL, footer = NULL, status = N
     }
   }
   
+  if (!is.null(class))
+    cardCl <- paste(cardCl, class)
+    
+  
   if (enable_sidebar) {
     if (sidebar_start_open) {
       cardCl <- paste0(cardCl, " direct-chat direct-chat-contacts-open")
diff --git a/man/bs4Card.Rd b/man/bs4Card.Rd
index 806057d6..a70d0cf6 100644
--- a/man/bs4Card.Rd
+++ b/man/bs4Card.Rd
@@ -7,8 +7,8 @@
 \usage{
 bs4Card(..., inputId = NULL, title = NULL, footer = NULL,
   status = NULL, elevation = NULL, solidHeader = FALSE,
-  headerBorder = TRUE, gradientColor = NULL, width = 6,
-  height = NULL, collapsible = TRUE, collapsed = FALSE,
+  headerBorder = TRUE, gradientColor = NULL, class = NULL,
+  width = 6, height = NULL, collapsible = TRUE, collapsed = FALSE,
   closable = TRUE, maximizable = FALSE, labelStatus = NULL,
   labelText = NULL, labelTooltip = NULL, dropdownMenu = NULL,
   dropdownIcon = "wrench", overflow = FALSE, enable_sidebar = FALSE,
@@ -18,8 +18,8 @@ bs4Card(..., inputId = NULL, title = NULL, footer = NULL,
 
 box(..., inputId = NULL, title = NULL, footer = NULL,
   status = NULL, elevation = NULL, solidHeader = FALSE,
-  headerBorder = TRUE, gradientColor = NULL, width = 6,
-  height = NULL, collapsible = TRUE, collapsed = FALSE,
+  headerBorder = TRUE, gradientColor = NULL, class = NULL,
+  width = 6, height = NULL, collapsible = TRUE, collapsed = FALSE,
   closable = TRUE, maximizable = FALSE, labelStatus = NULL,
   labelText = NULL, labelTooltip = NULL, dropdownMenu = NULL,
   dropdownIcon = "wrench", overflow = FALSE, enable_sidebar = FALSE,
@@ -48,6 +48,8 @@ TRUE by default}
 \item{gradientColor}{If NULL (the default), the background of the box will be
 white. Otherwise, a color string. "primary", "success", "warning" or "danger".}
 
+\item{class}{A character string that will be added to the card's list of css classes.}
+
 \item{width}{The width of the box, using the Bootstrap grid system. This is
 used for row-based layouts. The overall width of a region is 12, so the
 default width of 4 occupies 1/3 of that width. For column-based