Running ‘testthat.R’ [2s/20s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > test_check("wikipediatrend")
  Loading required package: wikipediatrend
  
    [wikipediatrend]
      
    Note:
      
      - Data before 2016-01-01 
        * is provided by petermeissner.de and
        * was prepared in a project commissioned by the Hertie School of Governance (Prof. Dr. Simon Munzert)
        * and supported by the Daimler and Benz Foundation.
      
      - Data from 2016-01-01 onwards 
        * is provided by the Wikipedia Foundation
        * via its pageviews package and API.
      
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 40 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test_aux.R:6:3): wp_linked_pages() is robust against no-data, sparse data ──
  `{ ... }` threw an error.
  Message: Timeout was reached: [en.wikipedia.org] Failed to connect to en.wikipedia.org port 443 after 5214 ms: Connection timed out
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_aux.R:6: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. └─wikipediatrend::wp_linked_pages(...) at test_aux.R:8:6
    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")
  ── Failure (test_wp_trend.R:5:3): wp_trend() ───────────────────────────────────
  `wp_trend(page = "Test")` produced warnings.
  ── Error (test_wp_trend.R:9:3): wp_trend() ─────────────────────────────────────
  Error in `order(res$date, res$language, res$article)`: argument 1 is not a vector
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test_wp_trend.R:9:2
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─wikipediatrend::wp_trend(...)
   10.   └─base::order(res$date, res$language, res$article)
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 40 ]
  Error: Test failures
  Execution halted