Running ‘testthat.R’ [2s/4s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(rpubs)
  > 
  > test_check("rpubs")
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 0 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-extractCode.R:3'): Length of vector result ─────────────────────
  Error in `open.connection(x, "rb")`: HTTP error 503.
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(extractCode(url = "http://rpubs.com/aephidayatuloh/sendgmail")) at test-extractCode.R:3:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─rpubs::extractCode(url = "http://rpubs.com/aephidayatuloh/sendgmail")
    7.   ├─rvest::html_text(html_nodes(read_html(iframe_link), node))
    8.   │ └─xml2::xml_text(x, trim = trim)
    9.   ├─rvest::html_nodes(read_html(iframe_link), node)
   10.   │ └─rvest::html_elements(...)
   11.   ├─xml2::read_html(iframe_link)
   12.   └─xml2:::read_html.default(iframe_link)
   13.     ├─base::suppressWarnings(...)
   14.     │ └─base::withCallingHandlers(...)
   15.     ├─xml2::read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
   16.     └─xml2:::read_xml.character(...)
   17.       └─xml2:::read_xml.connection(...)
   18.         ├─base::open(x, "rb")
   19.         └─base::open.connection(x, "rb")
  ── Error ('test-rpubs_code.R:2'): multiplication works ─────────────────────────
  Error in `open.connection(x, "rb")`: HTTP error 503.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-rpubs_code.R:2:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rpubs::rpubs_code(url = "https://rpubs.com/aephidayatuloh/sendgmail")
    5.   ├─rvest::html_text(html_nodes(read_html(iframe_link), node))
    6.   │ └─xml2::xml_text(x, trim = trim)
    7.   ├─rvest::html_nodes(read_html(iframe_link), node)
    8.   │ └─rvest::html_elements(...)
    9.   ├─xml2::read_html(iframe_link)
   10.   └─xml2:::read_html.default(iframe_link)
   11.     ├─base::suppressWarnings(...)
   12.     │ └─base::withCallingHandlers(...)
   13.     ├─xml2::read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
   14.     └─xml2:::read_xml.character(...)
   15.       └─xml2:::read_xml.connection(...)
   16.         ├─base::open(x, "rb")
   17.         └─base::open.connection(x, "rb")
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 0 ]
  Error: Test failures
  Execution halted