Running ‘testthat.R’ [149s/287s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(portalr)
  > 
  > test_check("portalr")
  [ FAIL 4 | WARN 16 | SKIP 41 | PASS 137 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (41)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-05-individual-stake-data.R:6:3'): summarize_individual_rodents returns expected columns ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─portalr::summarize_individual_rodents(path = portal_data_path) at test-05-individual-stake-data.R:6:2
    2. │ ├─... %>% ...
    3. │ └─portalr:::join_trapping_to_rodents(...)
    4. │   ├─dplyr::right_join(...)
    5. │   └─dplyr:::right_join.data.frame(...)
    6. │     └─dplyr:::join_mutate(...)
    7. │       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
    8. │       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
    9. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11. │             ├─base::withCallingHandlers(...)
   12. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   13. ├─dplyr::select(...)
   14. └─portalr:::join_plots(., data_tables$plots_table)
   15.   └─dplyr::left_join(df, plots_table, by = join_by)
  ── Error ('test-06-summarize-plants.R:10:3'): plant_abundance returns expected results ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─portalr::plant_abundance(...) at test-06-summarize-plants.R:10:2
    2. │ ├─... %>% dplyr::filter(.data$abundance > 0)
    3. │ └─portalr::summarize_plant_data(..., shape = "flat", output = "abundance")
    4. │   └─... %>% as.data.frame()
    5. ├─dplyr::filter(., .data$abundance > 0)
    6. ├─base::as.data.frame(.)
    7. ├─portalr:::prep_plant_output(...)
    8. ├─portalr:::make_plant_level_data(., level, output, min_quads)
    9. │ └─dplyr::rename(plot_data, `:=`(n, !!output))
   10. ├─portalr:::make_plant_plot_data(...)
   11. │ └─... %>% tidyr::complete(!!!grouping, fill = filler)
   12. ├─tidyr::complete(., !!!grouping, fill = filler)
   13. ├─dplyr::right_join(...)
   14. └─dplyr:::right_join.data.frame(...)
   15.   └─dplyr:::join_mutate(...)
   16.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   17.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   18.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   19.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   20.           ├─base::withCallingHandlers(...)
   21.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-08-NDVI.R:19:3'): Missing monthly option data are filled ───────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─base::`[<-`(`*tmp*`, 10, "ndvi", value = `<lgl>`) at test-08-NDVI.R:19:2
   2. └─tibble:::`[<-.tbl_df`(`*tmp*`, 10, "ndvi", value = `<lgl>`) at test-08-NDVI.R:19:2
   3.   └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   4.     └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-08-NDVI.R:28:3'): Missing moon option data are filled ──────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─base::`[<-`(`*tmp*`, 10, "ndvi", value = `<lgl>`) at test-08-NDVI.R:28:2
   2. └─tibble:::`[<-.tbl_df`(`*tmp*`, 10, "ndvi", value = `<lgl>`) at test-08-NDVI.R:28:2
   3.   └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   4.     └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 4 | WARN 16 | SKIP 41 | PASS 137 ]
  Error: Test failures
  Execution halted