cf_root <- function(...) {
  root <- rprojroot::find_root(rprojroot::has_file("0-time-log.csv"))
  fs::path(root, ...)
}