Running ‘testthat.R’ [5s/96s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(fedregs)
  > 
  > test_check("fedregs")
  ── 1. Error: We can parse some parts. (@test-fedregs.R#66)  ────────────────────
  arguments imply differing number of rows: 1, 0
  1: testthat::expect_message(cfr_part(good_url, verbose = TRUE), sprintf("Pulling the chapter, part, and volume information from:\n%s.\n", 
         good_url)) at testthat/test-fedregs.R:66
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: cfr_part(good_url, verbose = TRUE)
  7: data.frame(year = as.numeric(gsub(".*CFR-(.*)-title(.*)-vol(.*).xml", "\\1", url)), 
         title = as.numeric(gsub(".*CFR-(.*)-title(.*)-vol(.*).xml", "\\2", url)), vol = as.numeric(gsub(".*CFR-(.*)-title(.*)-vol(.*).xml", 
             "\\3", url)), chapters = chapters, parts = parts, url = url, stringsAsFactors = FALSE)
  8: stop(gettextf("arguments imply differing number of rows: %s", paste(unique(nrows), 
         collapse = ", ")), domain = NA)
  
  ── 2. Error: We can go all the way (@test-fedregs.R#145)  ──────────────────────
  Each column must either be a list of vectors or a list of data frames [all_cfr]
  1: cfr_text(good_year, good_title_number, good_chapter, good_part) at testthat/test-fedregs.R:145
  2: cfr_part_df %>% tidyr::unnest() %>% dplyr::mutate(min_parts = purrr::map(parts, numextract, 
         "min"), max_parts = purrr::map(parts, numextract, "max")) %>% dplyr::filter(grepl(sprintf("Chapter %s", 
         chapter), chapters), min_parts <= part, max_parts > part)
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: function_list[[i]](value)
  9: tidyr::unnest(.)
  10: unnest.data.frame(.)
  11: abort(glue("Each column must either be a list of vectors or a list of ", "data frames [{probs}]"))
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 21 SKIPPED: 0 FAILED: 2
  1. Error: We can parse some parts. (@test-fedregs.R#66) 
  2. Error: We can go all the way (@test-fedregs.R#145) 
  
  Error: testthat unit tests failed
  Execution halted