Increment version number to 0.0.4

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: AVSDevR.HTMLUtils
 Title: Utility Functions For Modifying R HTML Elements
-Version: 0.0.3
+Version: 0.0.4
 Authors@R: 
     person("Craig", "Williams", , "craig@avsdev.uk", role = c("aut", "cre"))
 Description: Collection of utility functions for modifying HTML markup of

R/htmlBoxManipulation.R

@@ -169,6 +169,9 @@ htmlRemoveBoxTitle <- function(box, removeHeader = FALSE) {
   if (removeHeader) {
     htmltools::tagQuery(box)$find(".box-header")$remove()$allTags()
   } else {
-    htmltools::tagQuery(box)$find(".box-title")$remove()$allTags()
+    htmltools::tagQuery(box)$
+      find(".box-title")$
+      replace(htmltools::tags$span())$
+      allTags()
   }
 }