cran-checks-history.R

library(tidyverse)

checks <- cchecks::cch_pkgs_history(x = "xaringanthemer", limit = 50)

checks$data$history |>
  unnest(checks) |>
  filter(status != "OK") |>
  mutate(across(date_updated, lubridate::ymd_hms)) |>
  arrange(date_updated) |>
  mutate(
    status = glue::glue("[{status}]({check_url})")
  ) |>
  select(date_updated, status, flavor) |>
  pivot_wider(
    names_from = flavor,
    values_from = status,
    values_fill = "OK"
  ) |>
  knitr::kable()