From f7379e3d1bc682c9f6bbca928ae40fb59e58d88c Mon Sep 17 00:00:00 2001
From: Craig Williams <craig@avsdev.uk>
Date: Mon, 26 Jan 2026 13:53:12 +0000
Subject: [PATCH] Fixed shrunk box header once title is removed

---
 R/htmlBoxManipulation.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/R/htmlBoxManipulation.R b/R/htmlBoxManipulation.R
index 7df58b8..5f572a8 100644
--- 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())$
+      allTags()
   }
 }