Running 'testthat.R' [2s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(rpubs)
  > 
  > test_check("rpubs")
  == Failed tests ================================================================
  -- Error (test-extractCode.R:3:3): Length of vector result ---------------------
  Error: HTTP error 500.
  Backtrace:
       x
    1. +-testthat::expect_warning(extractCode(url = "http://rpubs.com/aephidayatuloh/sendgmail")) test-extractCode.R:3:2
    2. | \-testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. |   +-testthat:::.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.   +-xml2::read_html(url)
    8.   \-xml2:::read_html.default(url)
    9.     +-base::suppressWarnings(...)
   10.     | \-base::withCallingHandlers(...)
   11.     +-xml2::read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
   12.     \-xml2:::read_xml.character(...)
   13.       \-xml2:::read_xml.connection(...)
   14.         +-base::open(x, "rb")
   15.         \-base::open.connection(x, "rb")
  -- Error (test-rpubs_code.R:2:3): multiplication works -------------------------
  Error: HTTP error 500.
  Backtrace:
       x
    1. +-testthat::expect_equal(...) 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.   +-xml2::read_html(url)
    6.   \-xml2:::read_html.default(url)
    7.     +-base::suppressWarnings(...)
    8.     | \-base::withCallingHandlers(...)
    9.     +-xml2::read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
   10.     \-xml2:::read_xml.character(...)
   11.       \-xml2:::read_xml.connection(...)
   12.         +-base::open(x, "rb")
   13.         \-base::open.connection(x, "rb")
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 0 ]
  Error: Test failures
  In addition: Warning messages:
  1: In length(x) :
    closing unused connection 4 (http://rpubs.com/aephidayatuloh/sendgmail)
  2: In for (i in seq_len(n)) { :
    closing unused connection 4 (https://rpubs.com/aephidayatuloh/sendgmail)
  Execution halted