Running 'spelling.R' [0s/1s]
  Running 'testthat.R' [99s/73s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(collector)
  > 
  > test_check("collector")
  -- 1. Error: Scenario objects are created (@test-prepare_data.R#34)  -----------
  Column `frequency_func` not found in `.data`
  1: prepare_data(scenario_parameters, capability_parameters, fitted_threat_communities, 
         ques) at testthat/test-prepare_data.R:34
  2: scenario_parameters %>% dplyr::left_join(questions$scenarios, by = "scenario_id") %>% 
         dplyr::left_join(questions$domains, by = "domain_id") %>% dplyr::left_join(threat_parameters, 
         by = "threat_id") %>% dplyr::select(.data$scenario_id, scenario = .data$scenario, 
         dplyr::starts_with("threat_"), .data$domain_id, controls = .data$controls, tef_func = .data$frequency_func, 
         tef_meanlog = .data$frequency_meanlog, tef_sdlog = .data$frequency_sdlog, lm_func = .data$impact_func, 
         lm_meanlog = .data$impact_meanlog, lm_sdlog = .data$impact_sdlog, lm_min = .data$impact_min, 
         lm_max = .data$impact_max) %>% tidyr::drop_na()
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: function_list[[i]](value)
  9: dplyr::select(., .data$scenario_id, scenario = .data$scenario, dplyr::starts_with("threat_"), 
         .data$domain_id, controls = .data$controls, tef_func = .data$frequency_func, 
         tef_meanlog = .data$frequency_meanlog, tef_sdlog = .data$frequency_sdlog, lm_func = .data$impact_func, 
         lm_meanlog = .data$impact_meanlog, lm_sdlog = .data$impact_sdlog, lm_min = .data$impact_min, 
         lm_max = .data$impact_max)
  10: select.grouped_df(., .data$scenario_id, scenario = .data$scenario, dplyr::starts_with("threat_"), 
         .data$domain_id, controls = .data$controls, tef_func = .data$frequency_func, 
         tef_meanlog = .data$frequency_meanlog, tef_sdlog = .data$frequency_sdlog, lm_func = .data$impact_func, 
         lm_meanlog = .data$impact_meanlog, lm_sdlog = .data$impact_sdlog, lm_min = .data$impact_min, 
         lm_max = .data$impact_max)
  11: .select_grouped_df(.data, !!!enquos(...), notify = TRUE)
  12: tidyselect::vars_select(tbl_vars(.data), !!!enquos(...))
  13: vars_select_eval(.vars, quos)
  14: map_if(quos, !is_helper, eval_tidy, mask)
  15: map(.x[sel], .f, ...)
  16: .f(.x[[i]], ...)
  17: .data$frequency_func
  18: `$.rlang_data_pronoun`(.data, frequency_func)
  19: data_pronoun_get(x, nm)
  20: rlang:::abort_data_pronoun(x)
  21: abort(msg, "rlang_error_data_pronoun_not_found")
  
  == testthat results  ===========================================================
  [ OK: 19 | SKIPPED: 0 | WARNINGS: 9 | FAILED: 1 ]
  1. Error: Scenario objects are created (@test-prepare_data.R#34) 
  
  Error: testthat unit tests failed
  Execution halted