Fixed shrunk box header once title is removed

2026-01-26 14:02:20 +00:00
parent 09fba759b6
commit 66bcc3aef7
1 changed files with 4 additions and 1 deletions
--- a/R/htmlBoxManipulation.R
+++ b/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(htmltools::HTML("&nbsp;")))$
+      allTags()
  }
 }