Added a css class to the header span to empty box header so styling can be added (e.g. if header font size is changed)

R/htmlBoxManipulation.R

@@ -171,7 +171,9 @@ htmlRemoveBoxTitle <- function(box, removeHeader = FALSE) {
   } else {
     htmltools::tagQuery(box)$
       find(".box-title")$
-      replace(htmltools::tags$span(htmltools::HTML("&nbsp;")))$
+      replace(htmltools::tags$span(
+        class = "empty-box-title", htmltools::HTML("&nbsp;")
+      ))$
       allTags()
   }
 }