record_problems <- function(x, path, label) {
  if (nrow(problems(x)) == 0) {
    return(invisible())
  }

  problem_dir <- here::here("..", "problems")
  problem_path <- path(problem_dir, label, ext = "csv")
  dir_create(problem_dir)

  write_csv(problems(x), problem_path, append = file_exists(problem_path))
}