Running ‘testthat.R’ [79s/100s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(heatwaveR)
  > 
  > test_check("heatwaveR")
  [ FAIL 13 | WARN 7 | SKIP 0 | PASS 193 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-category.R:6:3'): category() returns the correct data.tables and columns ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─heatwaveR::category(res) at test-category.R:6:2
   2.   ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-category.R:14:3'): The seasons by hemisphere come out correctly ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─heatwaveR::category(res, S = T) at test-category.R:14:2
   2.   ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-category.R:23:3'): The name argument works correctly ───────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─heatwaveR::category(res) at test-category.R:23:2
   2.   ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-category.R:35:3'): y = any existing column ─────────────────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─testthat::expect_is(category(res, y = pawpaw), "tbl_df") at test-category.R:35:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─heatwaveR::category(res, y = pawpaw)
   5.   ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   6.   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   7.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   8.       ├─base::withCallingHandlers(...)
   9.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-category.R:44:3'): season splits work under all circumstances ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─heatwaveR::category(res, S = F) at test-category.R:44:2
   2.   ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-category.R:55:3'): climatology = T causes a list output with the time series category data ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─heatwaveR::category(res, climatology = T) at test-category.R:55:2
   2.   ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-category.R:65:3'): climatology intensity values are correct ────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─heatwaveR::category(res, climatology = T) at test-category.R:65:2
   2.   ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-category.R:74:3'): roundVal works as expected ──────────────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─heatwaveR::category(res, climatology = T, roundVal = 2) at test-category.R:74:2
   2.   ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-category.R:100:3'): the different `season` option function as expected ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(...) at test-category.R:100:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─heatwaveR::category(res, season = "range")
   5.   ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   6.   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   7.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   8.       ├─base::withCallingHandlers(...)
   9.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-category.R:111:3'): category() returns the correct data.tables and columns for MCSs ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─heatwaveR::category(res) at test-category.R:111:2
   2.   ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-category.R:120:3'): MCS climatology results are correctly inverted to give negative intensities ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─heatwaveR::category(res, climatology = T) at test-category.R:120:2
   2.   ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-category.R:133:3'): MCScorrect argument bounds the results to -1.8C ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─heatwaveR::category(res, climatology = T) at test-category.R:133:2
   2.   ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-detect_event.R:115:3'): built in 'categories' argument works as expected ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─heatwaveR::detect_event(ts, categories = T) at test-detect_event.R:115:2
   2.   └─heatwaveR::category(data_res, ...)
   3.     ├─base::`[<-`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   4.     └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(cat_n), value = `<dbl>`)
   5.       └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  
  [ FAIL 13 | WARN 7 | SKIP 0 | PASS 193 ]
  Error: Test failures
  Execution halted