method for hiding bs4Dash::box()

calderonsamuel · Aug 24, 2022 · 3fd2957 · 3fd2957
1 parent 9e820c1
commit 3fd2957
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/R/boxHide.R b/R/boxHide.R
@@ -0,0 +1,15 @@
+boxHide <- function(box) {
+    boxId <- boxFindId(box)
+
+    box |>
+        tagAppendAttributes(.cssSelector = glue::glue("#{boxId}"), style = "display: none;")
+}
+
+boxFindId <- function(box) {
+    boxQuery <- htmltools::tagQuery(box)
+    innerBox <- boxQuery$
+        children(".card")$
+        selectedTags()[[1]]
+
+    tagGetAttribute(innerBox, "id")
+}