is_ci_fast <- function() identical(Sys.getenv("CI_FAST"), "true")