In djnavarro/bs4cards: Generate Bootstrap Cards

knitr::opts_chunk$set(echo = TRUE)

library(bs4cards)

locate_thumbnail <- function(x) {
  system.file("extdata", "thumbnail", paste0(x, ".jpg"), package = "bs4cards")
} 
locate_gallery <- function(x) {
  paste0("https://art.djnavarro.net/gallery/", x)
}

galleries

Inset, full label

galleries %>% 
  cards(
    title = long_name,
    text = blurb,
    image = image_url,
    layout = "inset-top"
  )

galleries %>% 
  cards(
    title = long_name,
    text = blurb,
    image = image_url,
    layout = "inset-bottom"
  )

Inset, title only

galleries %>% 
  cards(
    title = long_name,
    image = image_url,
    layout = "inset-top",
    breakpoint = 3 
  )

galleries %>% 
  cards(
    title = long_name,
    image = image_url,
    layout = "inset-bottom",
    breakpoint = 3 
  )

djnavarro/bs4cards documentation built on Dec. 20, 2021, 12:04 a.m.