Running ‘testthat.R’ [21s/34s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(covidcast)
  We encourage COVIDcast API users to register on our mailing list:
  https://lists.andrew.cmu.edu/mailman/listinfo/delphi-covidcast-api
  We'll send announcements about new data sources, package updates,
  server maintenance, and new features.
  > 
  > test_check("covidcast")
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  Fetched day 2020-01-01 to 2020-01-01: num_entries = 2
  Fetched day 2020-01-01 to 2020-01-01: num_entries = 1
  Fetched day 2020-01-01 to 2020-01-05: num_entries = 5
  Fetched day 2020-10-30 to 2020-10-31: num_entries = 2
  Fetched day 2020-10-30 to 2020-10-31: num_entries = 2
  Fetched day 2020-10-01 to 2020-10-03: num_entries = 3
  Fetched day 2020-10-04 to 2020-10-06: num_entries = 3
  [ FAIL 3 | WARN 12 | SKIP 7 | PASS 55 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (7)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-cor.R:35:3'): correlations when correlation is 1 ───────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-cor.R:35:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─covidcast::covidcast_cor(foo, bar, by = "geo_value")
    5.   ├─dplyr::full_join(x, y, by = c("geo_value", "time_value"))
    6.   └─dplyr:::full_join.data.frame(x, y, by = c("geo_value", "time_value"))
    7.     └─dplyr:::join_mutate(...)
    8.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    9.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.             ├─base::withCallingHandlers(...)
   13.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-wrangle.R:121:3'): signals are joined with full join ───────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─covidcast::aggregate_signals(list(foo, bar)) at test-wrangle.R:121:2
    2.   ├─dplyr::full_join(y, x[[i]], by = c("geo_value", "time_value"))
    3.   └─dplyr:::full_join.data.frame(y, x[[i]], by = c("geo_value", "time_value"))
    4.     └─dplyr:::join_mutate(...)
    5.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    6.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    7.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
    9.             ├─base::withCallingHandlers(...)
   10.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-wrangle.R:318:5'): aggregated df doesn't clobber data_source or signal ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─covidcast::aggregate_signals(list(foo, bar), format = "long") at test-wrangle.R:318:4
    2.   └─covidcast:::apply_shifts(x, dt)
    3.     └─base::mapply(apply_shifts_one, x, dt, SIMPLIFY = FALSE)
    4.       └─covidcast (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
    5.         ├─dplyr::full_join(...)
    6.         └─dplyr:::full_join.data.frame(...)
    7.           └─dplyr:::join_mutate(...)
    8.             ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
    9.             └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   10.               └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.                 └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.                   ├─base::withCallingHandlers(...)
   13.                   └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 3 | WARN 12 | SKIP 7 | PASS 55 ]
  Deleting unused snapshots:
  • plot/default-county-choropleth-with-alaska.svg
  • plot/default-county-choropleth-with-include.svg
  • plot/default-county-choropleth.svg
  • plot/default-hrr-choropleth-with-include.svg
  • plot/default-msa-choropleth-with-include.svg
  • plot/default-state-choropleth-with-include.svg
  • plot/default-state-choropleth-with-range.svg
  • plot/state-choropleth-with-no-metadata.svg
  • plot/state-line-graph-with-range.svg
  • plot/state-line-graph-with-stderrs.svg
  Error: Test failures
  Execution halted