Running 'testthat.R' [30s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(fedregs)
  > 
  > test_check("fedregs")
  -- 1. Failure: We get the best CFR URLs. (@test-fedregs.R#38)  -----------------
  all(grepl("*..xml$", cfr)) isn't true.
  
  -- 2. Failure: We get the best CFR URLs. (@test-fedregs.R#39)  -----------------
  is.character(cfr) isn't true.
  
  -- 3. Error: We can parse some parts. (@test-fedregs.R#66)  --------------------
  NA is not a valid url.
  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: stop("NA is not a valid url.")
  
  -- 4. Error: We can go all the way (@test-fedregs.R#145)  ----------------------
  There aren't any regulations for title 50 in 2012.
  1: cfr_text(good_year, good_title_number, good_chapter, good_part) at testthat/test-fedregs.R:145
  2: stop(sprintf("There aren't any regulations for title %s in %s.\n", title_number, 
         year))
  
  == testthat results  ===========================================================
  OK: 19 SKIPPED: 0 FAILED: 4
  1. Failure: We get the best CFR URLs. (@test-fedregs.R#38) 
  2. Failure: We get the best CFR URLs. (@test-fedregs.R#39) 
  3. Error: We can parse some parts. (@test-fedregs.R#66) 
  4. Error: We can go all the way (@test-fedregs.R#145) 
  
  Error: testthat unit tests failed
  In addition: Warning messages:
  1: In for (i in seq_len(n)) { :
    closing unused connection 5 (https://www.gpo.gov/fdsys//bulkdata/CFR/2000/title-15)
  2: In for (i in seq_len(n)) { :
    closing unused connection 4 (https://www.gpo.gov/fdsys//bulkdata/CFR/1996/title-1)
  3: In for (i in seq_len(n)) { :
    closing unused connection 3 (https://www.gpo.gov/fdsys//bulkdata/CFR/1996/title-1)
  Execution halted