Make card() a custom element

rstudio · Mar 12, 2024 · 430537d · 430537d
1 parent 2722bb2
commit 430537d
Show file tree

Hide file tree

Showing 12 changed files with 524 additions and 687 deletions.
diff --git a/R/card.R b/R/card.R
@@ -90,15 +90,15 @@ card <- function(..., full_screen = FALSE, height = NULL, max_height = NULL, min
       max_height = validateCssUnit(max_height),
       min_height = validateCssUnit(min_height)
     ),
-    "data-bslib-card-init" = NA,
-    "data-full-screen" = if (full_screen) "false",
+    "data-full-screen" = if (full_screen) "false", 
     !!!attribs,
     !!!children,
     if (full_screen) full_screen_toggle(attribs$id),
-    card_init_js(),
     component_dependencies()
   )
 
+  tag <- web_component("bslib-card", tag)
+
   tag <- bindFillRole(tag, container = TRUE, item = fill)
   tag <- tagAppendAttributes(tag, class = class)
 
@@ -313,13 +313,6 @@ full_screen_toggle <- function(id_controls) {
   )
 }
 
-card_init_js <- function() {
-  tags$script(
-    `data-bslib-card-init` = NA,
-    HTML("bslib.Card.initializeAllCards();")
-  )
-}
-
 full_screen_toggle_icon <- function() {
   # https://www.visiwig.com/icons/
   # https://www.visiwig.com/icons-license/

diff --git a/inst/components/dist/components.js b/inst/components/dist/components.js
diff --git a/inst/components/dist/components.js.map b/inst/components/dist/components.js.map