revdep/drake-analyze.R

In hadley/pillar: Coloured Formatting for Columns

library(tidyverse)

all <- drake::readd(compare_all)

error <- map_chr(map(all, class), 1) == "try-error"

succeeded <- all[!error]
succeeded <- succeeded[sort(names(succeeded))]

withr::with_output_sink("revdep/new-problems.md", revdepcheck::revdep_report_problems(results = succeeded))