CRAN Package Check Results for Package collector

Last updated on 2019-09-28 14:46:20 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.1.2 13.40 212.32 225.72 ERROR
r-devel-linux-x86_64-debian-gcc 0.1.2 12.17 205.31 217.48 ERROR
r-devel-linux-x86_64-fedora-clang 0.1.2 239.66 ERROR
r-devel-linux-x86_64-fedora-gcc 0.1.2 264.77 ERROR
r-devel-windows-ix86+x86_64 0.1.2 49.00 262.00 311.00 ERROR
r-patched-linux-x86_64 0.1.2 12.66 202.44 215.10 ERROR
r-patched-solaris-x86 0.1.2 316.30 ERROR
r-release-linux-x86_64 0.1.2 11.94 209.84 221.78 ERROR
r-release-windows-ix86+x86_64 0.1.2 52.00 257.00 309.00 ERROR
r-release-osx-x86_64 0.1.2 OK
r-oldrel-windows-ix86+x86_64 0.1.2 24.00 245.00 269.00 ERROR
r-oldrel-osx-x86_64 0.1.2 OK

Check Details

Version: 0.1.2
Check: examples
Result: ERROR
    Running examples in 'collector-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: prepare_data
    > ### Title: Create one or more quantitative scenarios objects suitable for
    > ### simulation by 'evaluator'
    > ### Aliases: prepare_data
    >
    > ### ** Examples
    >
    > suppressPackageStartupMessages(library(dplyr))
    > data(mc_domains, mc_capabilities, mc_scenarios, mc_sme_top_domains,
    + calibration_questions, mc_threat_communities)
    > question_set <- tidyrisk_question_set(mc_domains, mc_scenarios, mc_capabilities,
    + calibration_questions, mc_sme_top_domains,
    + mc_threat_communities)
    > response_set <- tidyrisk_response_set(mc_calibration_answers,
    + mc_scenario_answers, mc_capability_answers)
    > sme_weightings <- generate_weights(question_set, response_set)
    > data(mc_scenario_parameters_fitted, mc_capability_parameters_fitted,
    + mc_threat_parameters_fitted)
    > scenario_parameters <- left_join(mc_scenario_parameters_fitted, sme_weightings, by = "sme") %>%
    + combine_scenario_parameters()
    Warning: All elements of `...` must be named.
    Did you want `data = c(meanlog, sdlog, weight, min, max)`?
    Warning: The `.drop` argument of `unnest()` is deprecated as of tidyr 1.0.0.
    All list-columns are now preserved.
    This warning is displayed once per session.
    Call `lifecycle::last_warnings()` to see where this warning was generated.
    Warning: All elements of `...` must be named.
    Did you want `data = c(meanlog, sdlog, weight, min, max)`?
    > capability_parameters <- left_join(mc_capability_parameters_fitted, sme_weightings, by = "sme") %>%
    + combine_capability_parameters()
    Warning: All elements of `...` must be named.
    Did you want `data = c(mean, sd, weight, min, max)`?
    > quantitative_scenarios <- prepare_data(scenario_parameters,
    + capability_parameters,
    + mc_threat_parameters_fitted,
    + question_set)
    Error: Column `frequency_func` not found in `.data`
    Backtrace:
     x
     1. +-collector::prepare_data(...)
     2. | \-`%>%`(...)
     3. | +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     4. | \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
     5. | \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
     6. | \-collector:::`_fseq`(`_lhs`)
     7. | \-magrittr::freduce(value, `_function_list`)
     8. | \-function_list[[i]](value)
     9. | +-dplyr::select(...)
     10. | \-dplyr:::select.grouped_df(...)
     11. | \-dplyr:::.select_grouped_df(.data, !!!enquos(...), notify = TRUE)
     12. | \-tidyselect::vars_select(tbl_vars(.data), !!!enquos(...))
     13. | \-tidyselect:::vars_select_eval(.vars, quos)
     14. | \-purrr::map_if(quos, !is_helper, eval_tidy, mask)
     15. | \-purrr::map(.x[sel], .f, ...)
     16. | \-rlang:::.f(.x[[i]], ...)
     17. +-frequen
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.1.2
Check: tests
Result: ERROR
     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
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.1.2
Check: examples
Result: ERROR
    Running examples in ‘collector-Ex.R’ failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: prepare_data
    > ### Title: Create one or more quantitative scenarios objects suitable for
    > ### simulation by 'evaluator'
    > ### Aliases: prepare_data
    >
    > ### ** Examples
    >
    > suppressPackageStartupMessages(library(dplyr))
    > data(mc_domains, mc_capabilities, mc_scenarios, mc_sme_top_domains,
    + calibration_questions, mc_threat_communities)
    > question_set <- tidyrisk_question_set(mc_domains, mc_scenarios, mc_capabilities,
    + calibration_questions, mc_sme_top_domains,
    + mc_threat_communities)
    > response_set <- tidyrisk_response_set(mc_calibration_answers,
    + mc_scenario_answers, mc_capability_answers)
    > sme_weightings <- generate_weights(question_set, response_set)
    > data(mc_scenario_parameters_fitted, mc_capability_parameters_fitted,
    + mc_threat_parameters_fitted)
    > scenario_parameters <- left_join(mc_scenario_parameters_fitted, sme_weightings, by = "sme") %>%
    + combine_scenario_parameters()
    Warning: All elements of `...` must be named.
    Did you want `data = c(meanlog, sdlog, weight, min, max)`?
    Warning: The `.drop` argument of `unnest()` is deprecated as of tidyr 1.0.0.
    All list-columns are now preserved.
    This warning is displayed once per session.
    Call `lifecycle::last_warnings()` to see where this warning was generated.
    Warning: All elements of `...` must be named.
    Did you want `data = c(meanlog, sdlog, weight, min, max)`?
    > capability_parameters <- left_join(mc_capability_parameters_fitted, sme_weightings, by = "sme") %>%
    + combine_capability_parameters()
    Warning: All elements of `...` must be named.
    Did you want `data = c(mean, sd, weight, min, max)`?
    > quantitative_scenarios <- prepare_data(scenario_parameters,
    + capability_parameters,
    + mc_threat_parameters_fitted,
    + question_set)
    Error: Column `frequency_func` not found in `.data`
    Backtrace:
     █
     1. ├─collector::prepare_data(...)
     2. │ └─`%>%`(...)
     3. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     4. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
     5. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
     6. │ └─collector:::`_fseq`(`_lhs`)
     7. │ └─magrittr::freduce(value, `_function_list`)
     8. │ └─function_list[[i]](value)
     9. │ ├─dplyr::select(...)
     10. │ └─dplyr:::select.grouped_df(...)
     11. │ └─dplyr:::.select_grouped_df(.data, !!!enquos(...), notify = TRUE)
     12. │ └─tidyselect::vars_select(tbl_vars(.data), !!!enquos(...))
     13. │ └─tidyselect:::vars_select_eval(.vars, quos)
     14. │ └─purrr::map_if(quos, !is_helper, eval_tidy, mask)
     15. │ └─purrr::map(
    Execution halted
Flavors: r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64

Version: 0.1.2
Check: tests
Result: ERROR
     Running ‘spelling.R’ [0s/1s]
     Running ‘testthat.R’ [118s/134s]
    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
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.1.2
Check: examples
Result: ERROR
    Running examples in ‘collector-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: prepare_data
    > ### Title: Create one or more quantitative scenarios objects suitable for
    > ### simulation by 'evaluator'
    > ### Aliases: prepare_data
    >
    > ### ** Examples
    >
    > suppressPackageStartupMessages(library(dplyr))
    > data(mc_domains, mc_capabilities, mc_scenarios, mc_sme_top_domains,
    + calibration_questions, mc_threat_communities)
    > question_set <- tidyrisk_question_set(mc_domains, mc_scenarios, mc_capabilities,
    + calibration_questions, mc_sme_top_domains,
    + mc_threat_communities)
    > response_set <- tidyrisk_response_set(mc_calibration_answers,
    + mc_scenario_answers, mc_capability_answers)
    > sme_weightings <- generate_weights(question_set, response_set)
    > data(mc_scenario_parameters_fitted, mc_capability_parameters_fitted,
    + mc_threat_parameters_fitted)
    > scenario_parameters <- left_join(mc_scenario_parameters_fitted, sme_weightings, by = "sme") %>%
    + combine_scenario_parameters()
    Warning: All elements of `...` must be named.
    Did you want `data = c(meanlog, sdlog, weight, min, max)`?
    Warning: The `.drop` argument of `unnest()` is deprecated as of tidyr 1.0.0.
    All list-columns are now preserved.
    This warning is displayed once per session.
    Call `lifecycle::last_warnings()` to see where this warning was generated.
    Warning: All elements of `...` must be named.
    Did you want `data = c(meanlog, sdlog, weight, min, max)`?
    > capability_parameters <- left_join(mc_capability_parameters_fitted, sme_weightings, by = "sme") %>%
    + combine_capability_parameters()
    Warning: All elements of `...` must be named.
    Did you want `data = c(mean, sd, weight, min, max)`?
    > quantitative_scenarios <- prepare_data(scenario_parameters,
    + capability_parameters,
    + mc_threat_parameters_fitted,
    + question_set)
    Error: Column `frequency_func` not found in `.data`
    Backtrace:
     █
     1. ├─collector::prepare_data(...)
     2. │ └─`%>%`(...)
     3. │ ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     4. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
     5. │ └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
     6. │ └─collector:::`_fseq`(`_lhs`)
     7. │ └─magrittr::freduce(value, `_function_list`)
     8. │ └─function_list[[i]](value)
     9. │ ├─dplyr::select(...)
     10. │ └─dplyr:::select.grouped_df(...)
     11. │ └─dplyr:::.select_grouped_df(.data, !!!enquos(...), notify = TRUE)
     12. │ └─tidyselect::vars_select(tbl_vars(.data), !!!enquos(...))
     13. │ └─tidyselect:::vars_select_eval(.vars, quos)
     14. │ └─purrr::map_if(quos, !is_helper, eval_tidy, mask)
     15. │ └─purrr::map(
    Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86

Version: 0.1.2
Check: tests
Result: ERROR
     Running ‘spelling.R’
     Running ‘testthat.R’ [91s/87s]
    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
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.1.2
Check: tests
Result: ERROR
     Running ‘spelling.R’
     Running ‘testthat.R’ [103s/199s]
    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
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.1.2
Check: examples
Result: ERROR
    Running examples in 'collector-Ex.R' failed
    The error most likely occurred in:
    
    > ### Name: prepare_data
    > ### Title: Create one or more quantitative scenarios objects suitable for
    > ### simulation by 'evaluator'
    > ### Aliases: prepare_data
    >
    > ### ** Examples
    >
    > suppressPackageStartupMessages(library(dplyr))
    > data(mc_domains, mc_capabilities, mc_scenarios, mc_sme_top_domains,
    + calibration_questions, mc_threat_communities)
    > question_set <- tidyrisk_question_set(mc_domains, mc_scenarios, mc_capabilities,
    + calibration_questions, mc_sme_top_domains,
    + mc_threat_communities)
    > response_set <- tidyrisk_response_set(mc_calibration_answers,
    + mc_scenario_answers, mc_capability_answers)
    > sme_weightings <- generate_weights(question_set, response_set)
    > data(mc_scenario_parameters_fitted, mc_capability_parameters_fitted,
    + mc_threat_parameters_fitted)
    > scenario_parameters <- left_join(mc_scenario_parameters_fitted, sme_weightings, by = "sme") %>%
    + combine_scenario_parameters()
    Warning: All elements of `...` must be named.
    Did you want `data = c(meanlog, sdlog, weight, min, max)`?
    Warning: The `.drop` argument of `unnest()` is deprecated as of tidyr 1.0.0.
    All list-columns are now preserved.
    This warning is displayed once per session.
    Call `lifecycle::last_warnings()` to see where this warning was generated.
    Warning: All elements of `...` must be named.
    Did you want `data = c(meanlog, sdlog, weight, min, max)`?
    > capability_parameters <- left_join(mc_capability_parameters_fitted, sme_weightings, by = "sme") %>%
    + combine_capability_parameters()
    Warning: All elements of `...` must be named.
    Did you want `data = c(mean, sd, weight, min, max)`?
    > quantitative_scenarios <- prepare_data(scenario_parameters,
    + capability_parameters,
    + mc_threat_parameters_fitted,
    + question_set)
    Error: Column `frequency_func` not found in `.data`
    Backtrace:
     x
     1. +-collector::prepare_data(...)
     2. | \-`%>%`(...)
     3. | +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     4. | \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
     5. | \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
     6. | \-collector:::`_fseq`(`_lhs`)
     7. | \-magrittr::freduce(value, `_function_list`)
     8. | \-function_list[[i]](value)
     9. | +-dplyr::select(...)
     10. | \-dplyr:::select.grouped_df(...)
     11. | \-dplyr:::.select_grouped_df(.data, !!!enquos(...), notify = TRUE)
     12. | \-tidyselect::vars_select(tbl_vars(.data), !!!enquos(...))
     13. | \-tidyselect:::vars_select_eval(.vars, quos)
     14. | \-purrr::map_if(quos, !is_helper, eval_tidy, mask)
     15. | \-purrr::map(.x[sel], .f, ...)
     16. | \-rlang:::.f(.x[[i]], ...)
     17. +-frequen
    Execution halted
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64

Version: 0.1.2
Check: tests
Result: ERROR
     Running 'spelling.R' [1s]
     Running 'testthat.R' [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
Flavor: r-devel-windows-ix86+x86_64

Version: 0.1.2
Check: tests
Result: ERROR
     Running ‘spelling.R’ [0s/0s]
     Running ‘testthat.R’ [95s/94s]
    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
Flavor: r-patched-linux-x86_64

Version: 0.1.2
Check: tests
Result: ERROR
     Running ‘spelling.R’
     Running ‘testthat.R’ [91s/125s]
    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: 18 | SKIPPED: 1 | WARNINGS: 9 | FAILED: 1 ]
     1. Error: Scenario objects are created (@test-prepare_data.R#34)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-patched-solaris-x86

Version: 0.1.2
Check: tests
Result: ERROR
     Running ‘spelling.R’ [0s/1s]
     Running ‘testthat.R’ [102s/102s]
    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
Flavor: r-release-linux-x86_64

Version: 0.1.2
Check: tests
Result: ERROR
     Running 'spelling.R' [0s]
     Running 'testthat.R' [71s]
    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
Flavor: r-release-windows-ix86+x86_64

Version: 0.1.2
Check: tests
Result: ERROR
     Running 'spelling.R' [0s]
     Running 'testthat.R' [75s]
    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
Flavor: r-oldrel-windows-ix86+x86_64