revdep/drake-analyze.R

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))
r-lib/pillar documentation built on Sept. 17, 2024, 4:54 a.m.