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

No image

galleries %>% 
  cards(
    text = blurb,
    width = "medium",
    layout = "label-below"
  )

galleries %>% 
  cards(
    text = blurb,
    width = "medium",
    layout = "label-above"
  )

galleries %>% 
  cards(
    text = blurb,
    width = "medium",
    layout = "label-left"
  )

galleries %>% 
  cards(
    text = blurb,
    width = "medium",
    layout = "label-right"
  )

galleries %>% 
  cards(
    text = blurb,
    width = "medium",
    layout = "inset-top"
  )

galleries %>% 
  cards(
    text = blurb,
    width = "medium",
    layout = "inset-bottom"
  )

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