tabBox: add a footer argument like for box

R/boxes.R

@@ -318,6 +318,7 @@ box <- function(..., title = NULL, footer = NULL, status = NULL,
 #' @param side Which side of the box the tabs should be on (\code{"left"} or
 #'   \code{"right"}). When \code{side="right"}, the order of tabs will be
 #'   reversed.
+#' @param footer Optional footer text.
 #'
 #' @family boxes
 #'
@@ -367,7 +368,7 @@ box <- function(..., title = NULL, footer = NULL, status = NULL,
 #' )
 #' }
 #' @export
-tabBox <- function(..., id = NULL, selected = NULL, title = NULL,
+tabBox <- function(..., id = NULL, selected = NULL, title = NULL, footer = NULL,
                    width = 6, height = NULL, side = c("left", "right"))
 {
   side <- match.arg(side)
@@ -402,5 +403,13 @@ tabBox <- function(..., id = NULL, selected = NULL, title = NULL,
     )
   }
 
+  # Add footer
+  if (!is.null(footer)) {
+    content <- htmltools::tagAppendChild(
+      content,
+      div(class = "box-footer", footer)
+    )
+  }
+
   div(class = paste0("col-sm-", width), content)
 }