More tweaking

rstudio · Jun 4, 2024 · 800a721 · 800a721
1 parent 9549694
commit 800a721
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/vignettes/articles/example_cards.R b/vignettes/articles/example_cards.R
@@ -2,9 +2,12 @@ card <- function(title, link, image, alt = NULL, text = NULL, footer = NULL, ...
   alt <- alt %||% paste0("Preview image of ", title)
 
   bslib::card(
-    bslib::card_image(file = NULL, src = image, href = link, alt = alt),
-    bslib::card_title(htmltools::a(href = link, title)),
-    if (!is.null(text)) htmltools::HTML(commonmark::markdown_html(text)),
+    bslib::card_header(htmltools::a(href = link, title)),
+    bslib::card_body(
+      bslib::card_image(file = NULL, src = image, href = link, alt = alt),
+      if (!is.null(text)) htmltools::HTML(commonmark::markdown_html(text)),
+      fillable = FALSE
+    ),
     if (!is.null(footer)) 
       bslib::card_footer(htmltools::HTML(footer)),
   )