Running ‘testthat.R’ [2s/5s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tidyRSS)
  > 
  > test_check("tidyRSS")
  ── 1. Error: tidyfeed returns a data_frame (@test.feeds.R#11)  ─────────────────
  xmlParseEntityRef: no name [68]
  1: expect_is(tidyfeed(rss), "tbl_df") at testthat/test.feeds.R:11
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: tidyfeed(rss)
  5: suppressWarnings({
         stopifnot(identical(length(feed), 1L))
         msg <- "Error in feed parse; please check URL.\nIf you're certain that this is a valid rss feed, please file an issue at https://github.com/RobertMyles/tidyRSS/issues. Please note that the feed may also be undergoing maintenance."
         doc <- try(httr::GET(feed), silent = TRUE)
         if (grepl("json", doc$headers$`content-type`)) {
             result <- json_parse(feed)
             return(result)
         }
         else {
             doc <- doc %>% xml2::read_xml()
         }
         if (unique(grepl("try-error", class(doc)))) {
             stop(msg)
         }
         if (grepl("http://www.w3.org/2005/Atom", xml2::xml_attr(doc, "xmlns"))) {
             result <- atom_parse(doc)
             return(result)
         }
         else {
             result <- rss_parse(doc)
             return(result)
         }
     })
  6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  7: doc %>% xml2::read_xml()
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: `_fseq`(`_lhs`)
  12: freduce(value, `_function_list`)
  13: withVisible(function_list[[k]](value))
  14: function_list[[k]](value)
  15: xml2::read_xml(.)
  16: read_xml.response(.)
  17: xml2::read_xml(content, encoding = encoding, base_url = base_url, as_html = as_html, 
         option = options, ...)
  18: read_xml.raw(content, encoding = encoding, base_url = base_url, as_html = as_html, 
         option = options, ...)
  19: doc_parse_raw(x, encoding = encoding, base_url = base_url, as_html = as_html, options = options)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 1 SKIPPED: 0 FAILED: 1
  1. Error: tidyfeed returns a data_frame (@test.feeds.R#11) 
  
  Error: testthat unit tests failed
  Execution halted