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

galleries %>% 
  cards(
    header = paste0(stringr::str_pad(galleries$blurb, width = max(nchar(galleries$blurb)), pad=" ", side = "right"), knitr::raw_html(" ")),
    footer = blurb,
    #title = long_name,
    text = blurb,
    image = locate_thumbnail(short_name),
    width = "medium",
    layout = "label-below"
  )

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