Running 'testthat.R' [3s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(c14bazAAR)
  > 
  > test_check("c14bazAAR")
  -- 1. Error: as.c14_date_list gives back a c14_date_list with correct input (@te
  undefined exports: add_count, add_count_, add_rownames, add_tally, add_tally_, all_equal, all_vars, anti_join, any_vars, arrange, arrange_, arrange_all, arrange_at, arrange_if, as.tbl, as.tbl_cube, auto_copy, bench_tbls, between, bind_cols, bind_rows, case_when, changes, check_dbplyr, coalesce, collect, combine, common_by, compare_tbls, compare_tbls2, compute, copy_to, count, count_, cumall, cumany, cume_dist, cummean, current_vars, db_analyze, db_begin, db_commit, db_create_index, db_create_indexes, db_create_table, db_data_type, db_desc, db_drop_table, db_explain, db_has_table, db_insert_into, db_list_tables, db_query_fields, db_query_rows, db_rollback, db_save_query, db_write_table, dense_rank, desc, dim_desc, distinct, distinct_, distinct_all, distinct_at, distinct_if, distinct_prepare, do, do_, dr_dplyr, eval_tbls, eval_tbls2, explain, failwith, filter_, filter_all, filter_at, filter_if, first, full_join, funs, funs_, group_by, group_by_, group_by_all, group_by_at, group_by_if, group_by_prepare, group_cols, group_data, group_indices, group_indices_, group_keys, group_map, group_nest, group_rows, group_size, group_split, group_trim, group_vars, group_walk, grouped_df, groups, hybrid_call, id, ident, if_else, inner_join, is.grouped_df, is.src, is.tbl, is_grouped_df, last, lead, left_join, location, make_tbl, min_rank, mutate, mutate_, mutate_all, mutate_at, mutate_each, mutate_each_, mutate_if, n, n_distinct, n_groups, na_if, near, nest_join, new_grouped_df, nth, ntile, order_by, percent_rank, progress_estimated, pull, rbind_all, rbind_list, recode, recode_factor, rename, rename_, rename_all, rename_at, rename_if, rename_vars, rename_vars_, right_join, row_number, rowwise, same_src, sample_frac, sample_n, select, select_, select_all, select_at, select_if, select_var, select_vars, select_vars_, semi_join, show_query, slice, slice_, sql, sql_escape_ident, sql_escape_string, sql_join, sql_select, sql_semi_join, sql_set_op, sql_subquery, sql_translate_env, src, src_df, src_local, src_mysql, src_postgres, src_sqlite, src_tbls, summarise, summarise_, summarise_all, summarise_at, summarise_each, summarise_each_, summarise_if, summarize, summarize_, summarize_all, summarize_at, summarize_each, summarize_each_, summarize_if, tally, tally_, tbl, tbl_cube, tbl_df, tbl_nongroup_vars, tbl_vars, top_n, transmute, transmute_, transmute_all, transmute_at, transmute_if, ungroup, union_all, validate_grouped_df, vars, with_order, wrap_dbplyr_obj
  1: expect_s3_class(as.c14_date_list(data.frame(c14age = c(2000, 2500), c14std = c(20, 
         30))), "c14_date_list") at testthat/test_c14_date_list_basic.R:6
  2: quasi_label(enquo(object))
  3: eval_bare(get_expr(quo), get_env(quo))
  4: as.c14_date_list(data.frame(c14age = c(2000, 2500), c14std = c(20, 30)))
  5: x %>% `class<-`(c("c14_date_list", class(.))) %>% c14bazAAR::order_variables() %>% 
         c14bazAAR::enforce_types() %>% clean_latlon() %>% return()
  6: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: `_fseq`(`_lhs`)
  10: freduce(value, `_function_list`)
  ...
  20: withVisible(function_list[[k]](value))
  21: function_list[[k]](value)
  22: dplyr::select
  23: getExportedValue(pkg, name)
  24: asNamespace(ns)
  25: getNamespace(ns)
  26: tryCatch(loadNamespace(name), error = function(e) stop(e))
  27: tryCatchList(expr, classes, parentenv, handlers)
  28: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  29: value[[3L]](cond)
  
  -- 2. Error: as.c14_date_list ignores additional columns (@test_c14_date_list_ba
  undefined exports: add_count, add_count_, add_rownames, add_tally, add_tally_, all_equal, all_vars, anti_join, any_vars, arrange, arrange_, arrange_all, arrange_at, arrange_if, as.tbl, as.tbl_cube, auto_copy, bench_tbls, between, bind_cols, bind_rows, case_when, changes, check_dbplyr, coalesce, collect, combine, common_by, compare_tbls, compare_tbls2, compute, copy_to, count, count_, cumall, cumany, cume_dist, cummean, current_vars, db_analyze, db_begin, db_commit, db_create_index, db_create_indexes, db_create_table, db_data_type, db_desc, db_drop_table, db_explain, db_has_table, db_insert_into, db_list_tables, db_query_fields, db_query_rows, db_rollback, db_save_query, db_write_table, dense_rank, desc, dim_desc, distinct, distinct_, distinct_all, distinct_at, distinct_if, distinct_prepare, do, do_, dr_dplyr, eval_tbls, eval_tbls2, explain, failwith, filter_, filter_all, filter_at, filter_if, first, full_join, funs, funs_, group_by, group_by_, group_by_all, group_by_at, group_by_if, group_by_prepare, group_cols, group_data, group_indices, group_indices_, group_keys, group_map, group_nest, group_rows, group_size, group_split, group_trim, group_vars, group_walk, grouped_df, groups, hybrid_call, id, ident, if_else, inner_join, is.grouped_df, is.src, is.tbl, is_grouped_df, last, lead, left_join, location, make_tbl, min_rank, mutate, mutate_, mutate_all, mutate_at, mutate_each, mutate_each_, mutate_if, n, n_distinct, n_groups, na_if, near, nest_join, new_grouped_df, nth, ntile, order_by, percent_rank, progress_estimated, pull, rbind_all, rbind_list, recode, recode_factor, rename, rename_, rename_all, rename_at, rename_if, rename_vars, rename_vars_, right_join, row_number, rowwise, same_src, sample_frac, sample_n, select, select_, select_all, select_at, select_if, select_var, select_vars, select_vars_, semi_join, show_query, slice, slice_, sql, sql_escape_ident, sql_escape_string, sql_join, sql_select, sql_semi_join, sql_set_op, sql_subquery, sql_translate_env, src, src_df, src_local, src_mysql, src_postgres, src_sqlite, src_tbls, summarise, summarise_, summarise_all, summarise_at, summarise_each, summarise_each_, summarise_if, summarize, summarize_, summarize_all, summarize_at, summarize_each, summarize_each_, summarize_if, tally, tally_, tbl, tbl_cube, tbl_df, tbl_nongroup_vars, tbl_vars, top_n, transmute, transmute_, transmute_all, transmute_at, transmute_if, ungroup, union_all, validate_grouped_df, vars, with_order, wrap_dbplyr_obj
  1: expect_equal(colnames(as.c14_date_list(data.frame(c14age = c(2000, 2500), c14std = c(20, 
         30), cheese = c(1, 2)))), c("c14age", "c14std", "cheese")) at testthat/test_c14_date_list_basic.R:24
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: colnames(as.c14_date_list(data.frame(c14age = c(2000, 2500), c14std = c(20, 30), 
         cheese = c(1, 2))))
  5: is.data.frame(x)
  6: as.c14_date_list(data.frame(c14age = c(2000, 2500), c14std = c(20, 30), cheese = c(1, 
         2)))
  7: x %>% `class<-`(c("c14_date_list", class(.))) %>% c14bazAAR::order_variables() %>% 
         c14bazAAR::enforce_types() %>% clean_latlon() %>% return()
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  ...
  22: withVisible(function_list[[k]](value))
  23: function_list[[k]](value)
  24: dplyr::select
  25: getExportedValue(pkg, name)
  26: asNamespace(ns)
  27: getNamespace(ns)
  28: tryCatch(loadNamespace(name), error = function(e) stop(e))
  29: tryCatchList(expr, classes, parentenv, handlers)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: value[[3L]](cond)
  
  -- 3. Error: (unknown) (@test_c14_date_list_calibrate.R#3)  --------------------
  undefined exports: add_count, add_count_, add_rownames, add_tally, add_tally_, all_equal, all_vars, anti_join, any_vars, arrange, arrange_, arrange_all, arrange_at, arrange_if, as.tbl, as.tbl_cube, auto_copy, bench_tbls, between, bind_cols, bind_rows, case_when, changes, check_dbplyr, coalesce, collect, combine, common_by, compare_tbls, compare_tbls2, compute, copy_to, count, count_, cumall, cumany, cume_dist, cummean, current_vars, db_analyze, db_begin, db_commit, db_create_index, db_create_indexes, db_create_table, db_data_type, db_desc, db_drop_table, db_explain, db_has_table, db_insert_into, db_list_tables, db_query_fields, db_query_rows, db_rollback, db_save_query, db_write_table, dense_rank, desc, dim_desc, distinct, distinct_, distinct_all, distinct_at, distinct_if, distinct_prepare, do, do_, dr_dplyr, eval_tbls, eval_tbls2, explain, failwith, filter_, filter_all, filter_at, filter_if, first, full_join, funs, funs_, group_by, group_by_, group_by_all, group_by_at, group_by_if, group_by_prepare, group_cols, group_data, group_indices, group_indices_, group_keys, group_map, group_nest, group_rows, group_size, group_split, group_trim, group_vars, group_walk, grouped_df, groups, hybrid_call, id, ident, if_else, inner_join, is.grouped_df, is.src, is.tbl, is_grouped_df, last, lead, left_join, location, make_tbl, min_rank, mutate, mutate_, mutate_all, mutate_at, mutate_each, mutate_each_, mutate_if, n, n_distinct, n_groups, na_if, near, nest_join, new_grouped_df, nth, ntile, order_by, percent_rank, progress_estimated, pull, rbind_all, rbind_list, recode, recode_factor, rename, rename_, rename_all, rename_at, rename_if, rename_vars, rename_vars_, right_join, row_number, rowwise, same_src, sample_frac, sample_n, select, select_, select_all, select_at, select_if, select_var, select_vars, select_vars_, semi_join, show_query, slice, slice_, sql, sql_escape_ident, sql_escape_string, sql_join, sql_select, sql_semi_join, sql_set_op, sql_subquery, sql_translate_env, src, src_df, src_local, src_mysql, src_postgres, src_sqlite, src_tbls, summarise, summarise_, summarise_all, summarise_at, summarise_each, summarise_each_, summarise_if, summarize, summarize_, summarize_all, summarize_at, summarize_each, summarize_each_, summarize_if, tally, tally_, tbl, tbl_cube, tbl_df, tbl_nongroup_vars, tbl_vars, top_n, transmute, transmute_, transmute_all, transmute_at, transmute_if, ungroup, union_all, validate_grouped_df, vars, with_order, wrap_dbplyr_obj
  1: as.c14_date_list(data.frame(c14age = c(2000, 2500), c14std = c(20, 30))) at testthat/test_c14_date_list_calibrate.R:3
  2: x %>% `class<-`(c("c14_date_list", class(.))) %>% c14bazAAR::order_variables() %>% 
         c14bazAAR::enforce_types() %>% clean_latlon() %>% return()
  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: c14bazAAR::order_variables(.)
  10: order_variables.c14_date_list(.)
  ...
  17: withVisible(function_list[[k]](value))
  18: function_list[[k]](value)
  19: dplyr::select
  20: getExportedValue(pkg, name)
  21: asNamespace(ns)
  22: getNamespace(ns)
  23: tryCatch(loadNamespace(name), error = function(e) stop(e))
  24: tryCatchList(expr, classes, parentenv, handlers)
  25: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  26: value[[3L]](cond)
  
  -- 4. Error: (unknown) (@test_c14_date_list_classify_material.R#5)  ------------
  undefined exports: add_count, add_count_, add_rownames, add_tally, add_tally_, all_equal, all_vars, anti_join, any_vars, arrange, arrange_, arrange_all, arrange_at, arrange_if, as.tbl, as.tbl_cube, auto_copy, bench_tbls, between, bind_cols, bind_rows, case_when, changes, check_dbplyr, coalesce, collect, combine, common_by, compare_tbls, compare_tbls2, compute, copy_to, count, count_, cumall, cumany, cume_dist, cummean, current_vars, db_analyze, db_begin, db_commit, db_create_index, db_create_indexes, db_create_table, db_data_type, db_desc, db_drop_table, db_explain, db_has_table, db_insert_into, db_list_tables, db_query_fields, db_query_rows, db_rollback, db_save_query, db_write_table, dense_rank, desc, dim_desc, distinct, distinct_, distinct_all, distinct_at, distinct_if, distinct_prepare, do, do_, dr_dplyr, eval_tbls, eval_tbls2, explain, failwith, filter_, filter_all, filter_at, filter_if, first, full_join, funs, funs_, group_by, group_by_, group_by_all, group_by_at, group_by_if, group_by_prepare, group_cols, group_data, group_indices, group_indices_, group_keys, group_map, group_nest, group_rows, group_size, group_split, group_trim, group_vars, group_walk, grouped_df, groups, hybrid_call, id, ident, if_else, inner_join, is.grouped_df, is.src, is.tbl, is_grouped_df, last, lead, left_join, location, make_tbl, min_rank, mutate, mutate_, mutate_all, mutate_at, mutate_each, mutate_each_, mutate_if, n, n_distinct, n_groups, na_if, near, nest_join, new_grouped_df, nth, ntile, order_by, percent_rank, progress_estimated, pull, rbind_all, rbind_list, recode, recode_factor, rename, rename_, rename_all, rename_at, rename_if, rename_vars, rename_vars_, right_join, row_number, rowwise, same_src, sample_frac, sample_n, select, select_, select_all, select_at, select_if, select_var, select_vars, select_vars_, semi_join, show_query, slice, slice_, sql, sql_escape_ident, sql_escape_string, sql_join, sql_select, sql_semi_join, sql_set_op, sql_subquery, sql_translate_env, src, src_df, src_local, src_mysql, src_postgres, src_sqlite, src_tbls, summarise, summarise_, summarise_all, summarise_at, summarise_each, summarise_each_, summarise_if, summarize, summarize_, summarize_all, summarize_at, summarize_each, summarize_each_, summarize_if, tally, tally_, tbl, tbl_cube, tbl_df, tbl_nongroup_vars, tbl_vars, top_n, transmute, transmute_, transmute_all, transmute_at, transmute_if, ungroup, union_all, validate_grouped_df, vars, with_order, wrap_dbplyr_obj
  1: classify_material(example_c14_date_list, quiet = TRUE) at testthat/test_c14_date_list_classify_material.R:5
  2: classify_material.c14_date_list(example_c14_date_list, quiet = TRUE)
  3: x %<>% dplyr::mutate(material_thes = lookup_in_thesaurus_table(.$material, material_thesaurus)) %>% 
         as.c14_date_list()
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: function_list[[i]](value)
  10: dplyr::mutate
  11: getExportedValue(pkg, name)
  12: asNamespace(ns)
  13: getNamespace(ns)
  14: tryCatch(loadNamespace(name), error = function(e) stop(e))
  15: tryCatchList(expr, classes, parentenv, handlers)
  16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  17: value[[3L]](cond)
  
  -- 5. Error: (unknown) (@test_c14_date_list_coordinate_precision.R#5)  ---------
  undefined exports: add_count, add_count_, add_rownames, add_tally, add_tally_, all_equal, all_vars, anti_join, any_vars, arrange, arrange_, arrange_all, arrange_at, arrange_if, as.tbl, as.tbl_cube, auto_copy, bench_tbls, between, bind_cols, bind_rows, case_when, changes, check_dbplyr, coalesce, collect, combine, common_by, compare_tbls, compare_tbls2, compute, copy_to, count, count_, cumall, cumany, cume_dist, cummean, current_vars, db_analyze, db_begin, db_commit, db_create_index, db_create_indexes, db_create_table, db_data_type, db_desc, db_drop_table, db_explain, db_has_table, db_insert_into, db_list_tables, db_query_fields, db_query_rows, db_rollback, db_save_query, db_write_table, dense_rank, desc, dim_desc, distinct, distinct_, distinct_all, distinct_at, distinct_if, distinct_prepare, do, do_, dr_dplyr, eval_tbls, eval_tbls2, explain, failwith, filter_, filter_all, filter_at, filter_if, first, full_join, funs, funs_, group_by, group_by_, group_by_all, group_by_at, group_by_if, group_by_prepare, group_cols, group_data, group_indices, group_indices_, group_keys, group_map, group_nest, group_rows, group_size, group_split, group_trim, group_vars, group_walk, grouped_df, groups, hybrid_call, id, ident, if_else, inner_join, is.grouped_df, is.src, is.tbl, is_grouped_df, last, lead, left_join, location, make_tbl, min_rank, mutate, mutate_, mutate_all, mutate_at, mutate_each, mutate_each_, mutate_if, n, n_distinct, n_groups, na_if, near, nest_join, new_grouped_df, nth, ntile, order_by, percent_rank, progress_estimated, pull, rbind_all, rbind_list, recode, recode_factor, rename, rename_, rename_all, rename_at, rename_if, rename_vars, rename_vars_, right_join, row_number, rowwise, same_src, sample_frac, sample_n, select, select_, select_all, select_at, select_if, select_var, select_vars, select_vars_, semi_join, show_query, slice, slice_, sql, sql_escape_ident, sql_escape_string, sql_join, sql_select, sql_semi_join, sql_set_op, sql_subquery, sql_translate_env, src, src_df, src_local, src_mysql, src_postgres, src_sqlite, src_tbls, summarise, summarise_, summarise_all, summarise_at, summarise_each, summarise_each_, summarise_if, summarize, summarize_, summarize_all, summarize_at, summarize_each, summarize_each_, summarize_if, tally, tally_, tbl, tbl_cube, tbl_df, tbl_nongroup_vars, tbl_vars, top_n, transmute, transmute_, transmute_all, transmute_at, transmute_if, ungroup, union_all, validate_grouped_df, vars, with_order, wrap_dbplyr_obj
  1: coordinate_precision(example_c14_date_list) at testthat/test_c14_date_list_coordinate_precision.R:5
  2: coordinate_precision.c14_date_list(example_c14_date_list)
  3: x %>% add_or_replace_column_in_df(column_name_s = "coord_precision", column_content_mi = apply(cbind(lat, 
         lon), 1, mean), .after = "lon") %>% as.c14_date_list() %>% return()
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: function_list[[i]](value)
  10: as.c14_date_list(.)
  ...
  26: withVisible(function_list[[k]](value))
  27: function_list[[k]](value)
  28: dplyr::select
  29: getExportedValue(pkg, name)
  30: asNamespace(ns)
  31: getNamespace(ns)
  32: tryCatch(loadNamespace(name), error = function(e) stop(e))
  33: tryCatchList(expr, classes, parentenv, handlers)
  34: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  35: value[[3L]](cond)
  
  -- 6. Error: (unknown) (@test_c14_date_list_country_attribution.R#7)  ----------
  undefined exports: add_count, add_count_, add_rownames, add_tally, add_tally_, all_equal, all_vars, anti_join, any_vars, arrange, arrange_, arrange_all, arrange_at, arrange_if, as.tbl, as.tbl_cube, auto_copy, bench_tbls, between, bind_cols, bind_rows, case_when, changes, check_dbplyr, coalesce, collect, combine, common_by, compare_tbls, compare_tbls2, compute, copy_to, count, count_, cumall, cumany, cume_dist, cummean, current_vars, db_analyze, db_begin, db_commit, db_create_index, db_create_indexes, db_create_table, db_data_type, db_desc, db_drop_table, db_explain, db_has_table, db_insert_into, db_list_tables, db_query_fields, db_query_rows, db_rollback, db_save_query, db_write_table, dense_rank, desc, dim_desc, distinct, distinct_, distinct_all, distinct_at, distinct_if, distinct_prepare, do, do_, dr_dplyr, eval_tbls, eval_tbls2, explain, failwith, filter_, filter_all, filter_at, filter_if, first, full_join, funs, funs_, group_by, group_by_, group_by_all, group_by_at, group_by_if, group_by_prepare, group_cols, group_data, group_indices, group_indices_, group_keys, group_map, group_nest, group_rows, group_size, group_split, group_trim, group_vars, group_walk, grouped_df, groups, hybrid_call, id, ident, if_else, inner_join, is.grouped_df, is.src, is.tbl, is_grouped_df, last, lead, left_join, location, make_tbl, min_rank, mutate, mutate_, mutate_all, mutate_at, mutate_each, mutate_each_, mutate_if, n, n_distinct, n_groups, na_if, near, nest_join, new_grouped_df, nth, ntile, order_by, percent_rank, progress_estimated, pull, rbind_all, rbind_list, recode, recode_factor, rename, rename_, rename_all, rename_at, rename_if, rename_vars, rename_vars_, right_join, row_number, rowwise, same_src, sample_frac, sample_n, select, select_, select_all, select_at, select_if, select_var, select_vars, select_vars_, semi_join, show_query, slice, slice_, sql, sql_escape_ident, sql_escape_string, sql_join, sql_select, sql_semi_join, sql_set_op, sql_subquery, sql_translate_env, src, src_df, src_local, src_mysql, src_postgres, src_sqlite, src_tbls, summarise, summarise_, summarise_all, summarise_at, summarise_each, summarise_each_, summarise_if, summarize, summarize_, summarize_all, summarize_at, summarize_each, summarize_each_, summarize_if, tally, tally_, tbl, tbl_cube, tbl_df, tbl_nongroup_vars, tbl_vars, top_n, transmute, transmute_, transmute_all, transmute_at, transmute_if, ungroup, union_all, validate_grouped_df, vars, with_order, wrap_dbplyr_obj
  1: standardize_country_name(example_c14_date_list, quiet = TRUE) at testthat/test_c14_date_list_country_attribution.R:7
  2: standardize_country_name.c14_date_list(example_c14_date_list, quiet = TRUE)
  3: x %<>% dplyr::mutate(country_thes = lookup_in_countrycode_codelist(.$country, country_thesaurus, 
         codesets, ...)) %>% as.c14_date_list()
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: function_list[[i]](value)
  10: dplyr::mutate
  11: getExportedValue(pkg, name)
  12: asNamespace(ns)
  13: getNamespace(ns)
  14: tryCatch(loadNamespace(name), error = function(e) stop(e))
  15: tryCatchList(expr, classes, parentenv, handlers)
  16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  17: value[[3L]](cond)
  
  
    |                                                        
    |                                                  |   0%
    |                                                        
    |++++++++++++++++++++++++++++++++++++++++++++++++++| 100%
  -- 7. Error: (unknown) (@test_c14_date_list_duplicates.R#5)  -------------------
  undefined exports: add_count, add_count_, add_rownames, add_tally, add_tally_, all_equal, all_vars, anti_join, any_vars, arrange, arrange_, arrange_all, arrange_at, arrange_if, as.tbl, as.tbl_cube, auto_copy, bench_tbls, between, bind_cols, bind_rows, case_when, changes, check_dbplyr, coalesce, collect, combine, common_by, compare_tbls, compare_tbls2, compute, copy_to, count, count_, cumall, cumany, cume_dist, cummean, current_vars, db_analyze, db_begin, db_commit, db_create_index, db_create_indexes, db_create_table, db_data_type, db_desc, db_drop_table, db_explain, db_has_table, db_insert_into, db_list_tables, db_query_fields, db_query_rows, db_rollback, db_save_query, db_write_table, dense_rank, desc, dim_desc, distinct, distinct_, distinct_all, distinct_at, distinct_if, distinct_prepare, do, do_, dr_dplyr, eval_tbls, eval_tbls2, explain, failwith, filter_, filter_all, filter_at, filter_if, first, full_join, funs, funs_, group_by, group_by_, group_by_all, group_by_at, group_by_if, group_by_prepare, group_cols, group_data, group_indices, group_indices_, group_keys, group_map, group_nest, group_rows, group_size, group_split, group_trim, group_vars, group_walk, grouped_df, groups, hybrid_call, id, ident, if_else, inner_join, is.grouped_df, is.src, is.tbl, is_grouped_df, last, lead, left_join, location, make_tbl, min_rank, mutate, mutate_, mutate_all, mutate_at, mutate_each, mutate_each_, mutate_if, n, n_distinct, n_groups, na_if, near, nest_join, new_grouped_df, nth, ntile, order_by, percent_rank, progress_estimated, pull, rbind_all, rbind_list, recode, recode_factor, rename, rename_, rename_all, rename_at, rename_if, rename_vars, rename_vars_, right_join, row_number, rowwise, same_src, sample_frac, sample_n, select, select_, select_all, select_at, select_if, select_var, select_vars, select_vars_, semi_join, show_query, slice, slice_, sql, sql_escape_ident, sql_escape_string, sql_join, sql_select, sql_semi_join, sql_set_op, sql_subquery, sql_translate_env, src, src_df, src_local, src_mysql, src_postgres, src_sqlite, src_tbls, summarise, summarise_, summarise_all, summarise_at, summarise_each, summarise_each_, summarise_if, summarize, summarize_, summarize_all, summarize_at, summarize_each, summarize_each_, summarize_if, tally, tally_, tbl, tbl_cube, tbl_df, tbl_nongroup_vars, tbl_vars, top_n, transmute, transmute_, transmute_all, transmute_at, transmute_if, ungroup, union_all, validate_grouped_df, vars, with_order, wrap_dbplyr_obj
  1: mark_duplicates(example_c14_date_list) at testthat/test_c14_date_list_duplicates.R:5
  2: mark_duplicates.c14_date_list(example_c14_date_list)
  3: x %>% as.c14_date_list() %>% return()
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: function_list[[i]](value)
  10: as.c14_date_list(.)
  ...
  26: withVisible(function_list[[k]](value))
  27: function_list[[k]](value)
  28: dplyr::select
  29: getExportedValue(pkg, name)
  30: asNamespace(ns)
  31: getNamespace(ns)
  32: tryCatch(loadNamespace(name), error = function(e) stop(e))
  33: tryCatchList(expr, classes, parentenv, handlers)
  34: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  35: value[[3L]](cond)
  
  -- 8. Error: (unknown) (@test_c14_date_list_enforce_types.R#5)  ----------------
  undefined exports: add_count, add_count_, add_rownames, add_tally, add_tally_, all_equal, all_vars, anti_join, any_vars, arrange, arrange_, arrange_all, arrange_at, arrange_if, as.tbl, as.tbl_cube, auto_copy, bench_tbls, between, bind_cols, bind_rows, case_when, changes, check_dbplyr, coalesce, collect, combine, common_by, compare_tbls, compare_tbls2, compute, copy_to, count, count_, cumall, cumany, cume_dist, cummean, current_vars, db_analyze, db_begin, db_commit, db_create_index, db_create_indexes, db_create_table, db_data_type, db_desc, db_drop_table, db_explain, db_has_table, db_insert_into, db_list_tables, db_query_fields, db_query_rows, db_rollback, db_save_query, db_write_table, dense_rank, desc, dim_desc, distinct, distinct_, distinct_all, distinct_at, distinct_if, distinct_prepare, do, do_, dr_dplyr, eval_tbls, eval_tbls2, explain, failwith, filter_, filter_all, filter_at, filter_if, first, full_join, funs, funs_, group_by, group_by_, group_by_all, group_by_at, group_by_if, group_by_prepare, group_cols, group_data, group_indices, group_indices_, group_keys, group_map, group_nest, group_rows, group_size, group_split, group_trim, group_vars, group_walk, grouped_df, groups, hybrid_call, id, ident, if_else, inner_join, is.grouped_df, is.src, is.tbl, is_grouped_df, last, lead, left_join, location, make_tbl, min_rank, mutate, mutate_, mutate_all, mutate_at, mutate_each, mutate_each_, mutate_if, n, n_distinct, n_groups, na_if, near, nest_join, new_grouped_df, nth, ntile, order_by, percent_rank, progress_estimated, pull, rbind_all, rbind_list, recode, recode_factor, rename, rename_, rename_all, rename_at, rename_if, rename_vars, rename_vars_, right_join, row_number, rowwise, same_src, sample_frac, sample_n, select, select_, select_all, select_at, select_if, select_var, select_vars, select_vars_, semi_join, show_query, slice, slice_, sql, sql_escape_ident, sql_escape_string, sql_join, sql_select, sql_semi_join, sql_set_op, sql_subquery, sql_translate_env, src, src_df, src_local, src_mysql, src_postgres, src_sqlite, src_tbls, summarise, summarise_, summarise_all, summarise_at, summarise_each, summarise_each_, summarise_if, summarize, summarize_, summarize_all, summarize_at, summarize_each, summarize_each_, summarize_if, tally, tally_, tbl, tbl_cube, tbl_df, tbl_nongroup_vars, tbl_vars, top_n, transmute, transmute_, transmute_all, transmute_at, transmute_if, ungroup, union_all, validate_grouped_df, vars, with_order, wrap_dbplyr_obj
  1: enforce_types(example_c14_date_list) at testthat/test_c14_date_list_enforce_types.R:5
  2: enforce_types.c14_date_list(example_c14_date_list)
  3: withCallingHandlers({
         x <- x %>% dplyr::mutate_if(colnames(.) %in% chr_cols, as.character) %>% dplyr::mutate_if(colnames(.) %in% 
             int_cols, as.integer) %>% dplyr::mutate_if(colnames(.) %in% dbl_cols, as.double)
     }, warning = na_introduced_warning_handler)
  4: x %>% dplyr::mutate_if(colnames(.) %in% chr_cols, as.character) %>% dplyr::mutate_if(colnames(.) %in% 
         int_cols, as.integer) %>% dplyr::mutate_if(colnames(.) %in% dbl_cols, as.double)
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  11: dplyr::mutate_if
  12: getExportedValue(pkg, name)
  13: asNamespace(ns)
  14: getNamespace(ns)
  15: tryCatch(loadNamespace(name), error = function(e) stop(e))
  16: tryCatchList(expr, classes, parentenv, handlers)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: value[[3L]](cond)
  
  -- 9. Error: (unknown) (@test_c14_date_list_fuse.R#3)  -------------------------
  undefined exports: add_count, add_count_, add_rownames, add_tally, add_tally_, all_equal, all_vars, anti_join, any_vars, arrange, arrange_, arrange_all, arrange_at, arrange_if, as.tbl, as.tbl_cube, auto_copy, bench_tbls, between, bind_cols, bind_rows, case_when, changes, check_dbplyr, coalesce, collect, combine, common_by, compare_tbls, compare_tbls2, compute, copy_to, count, count_, cumall, cumany, cume_dist, cummean, current_vars, db_analyze, db_begin, db_commit, db_create_index, db_create_indexes, db_create_table, db_data_type, db_desc, db_drop_table, db_explain, db_has_table, db_insert_into, db_list_tables, db_query_fields, db_query_rows, db_rollback, db_save_query, db_write_table, dense_rank, desc, dim_desc, distinct, distinct_, distinct_all, distinct_at, distinct_if, distinct_prepare, do, do_, dr_dplyr, eval_tbls, eval_tbls2, explain, failwith, filter_, filter_all, filter_at, filter_if, first, full_join, funs, funs_, group_by, group_by_, group_by_all, group_by_at, group_by_if, group_by_prepare, group_cols, group_data, group_indices, group_indices_, group_keys, group_map, group_nest, group_rows, group_size, group_split, group_trim, group_vars, group_walk, grouped_df, groups, hybrid_call, id, ident, if_else, inner_join, is.grouped_df, is.src, is.tbl, is_grouped_df, last, lead, left_join, location, make_tbl, min_rank, mutate, mutate_, mutate_all, mutate_at, mutate_each, mutate_each_, mutate_if, n, n_distinct, n_groups, na_if, near, nest_join, new_grouped_df, nth, ntile, order_by, percent_rank, progress_estimated, pull, rbind_all, rbind_list, recode, recode_factor, rename, rename_, rename_all, rename_at, rename_if, rename_vars, rename_vars_, right_join, row_number, rowwise, same_src, sample_frac, sample_n, select, select_, select_all, select_at, select_if, select_var, select_vars, select_vars_, semi_join, show_query, slice, slice_, sql, sql_escape_ident, sql_escape_string, sql_join, sql_select, sql_semi_join, sql_set_op, sql_subquery, sql_translate_env, src, src_df, src_local, src_mysql, src_postgres, src_sqlite, src_tbls, summarise, summarise_, summarise_all, summarise_at, summarise_each, summarise_each_, summarise_if, summarize, summarize_, summarize_all, summarize_at, summarize_each, summarize_each_, summarize_if, tally, tally_, tbl, tbl_cube, tbl_df, tbl_nongroup_vars, tbl_vars, top_n, transmute, transmute_, transmute_all, transmute_at, transmute_if, ungroup, union_all, validate_grouped_df, vars, with_order, wrap_dbplyr_obj
  1: fuse(example_c14_date_list, example_c14_date_list) at testthat/test_c14_date_list_fuse.R:3
  2: fuse.c14_date_list(example_c14_date_list, example_c14_date_list)
  3: dplyr::bind_rows(...) %>% as.c14_date_list() %>% return()
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: dplyr::bind_rows
  7: getExportedValue(pkg, name)
  8: asNamespace(ns)
  9: getNamespace(ns)
  10: tryCatch(loadNamespace(name), error = function(e) stop(e))
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  13: value[[3L]](cond)
  
  -- 10. Error: (unknown) (@test_c14_date_list_order_variables.R#5)  -------------
  undefined exports: add_count, add_count_, add_rownames, add_tally, add_tally_, all_equal, all_vars, anti_join, any_vars, arrange, arrange_, arrange_all, arrange_at, arrange_if, as.tbl, as.tbl_cube, auto_copy, bench_tbls, between, bind_cols, bind_rows, case_when, changes, check_dbplyr, coalesce, collect, combine, common_by, compare_tbls, compare_tbls2, compute, copy_to, count, count_, cumall, cumany, cume_dist, cummean, current_vars, db_analyze, db_begin, db_commit, db_create_index, db_create_indexes, db_create_table, db_data_type, db_desc, db_drop_table, db_explain, db_has_table, db_insert_into, db_list_tables, db_query_fields, db_query_rows, db_rollback, db_save_query, db_write_table, dense_rank, desc, dim_desc, distinct, distinct_, distinct_all, distinct_at, distinct_if, distinct_prepare, do, do_, dr_dplyr, eval_tbls, eval_tbls2, explain, failwith, filter_, filter_all, filter_at, filter_if, first, full_join, funs, funs_, group_by, group_by_, group_by_all, group_by_at, group_by_if, group_by_prepare, group_cols, group_data, group_indices, group_indices_, group_keys, group_map, group_nest, group_rows, group_size, group_split, group_trim, group_vars, group_walk, grouped_df, groups, hybrid_call, id, ident, if_else, inner_join, is.grouped_df, is.src, is.tbl, is_grouped_df, last, lead, left_join, location, make_tbl, min_rank, mutate, mutate_, mutate_all, mutate_at, mutate_each, mutate_each_, mutate_if, n, n_distinct, n_groups, na_if, near, nest_join, new_grouped_df, nth, ntile, order_by, percent_rank, progress_estimated, pull, rbind_all, rbind_list, recode, recode_factor, rename, rename_, rename_all, rename_at, rename_if, rename_vars, rename_vars_, right_join, row_number, rowwise, same_src, sample_frac, sample_n, select, select_, select_all, select_at, select_if, select_var, select_vars, select_vars_, semi_join, show_query, slice, slice_, sql, sql_escape_ident, sql_escape_string, sql_join, sql_select, sql_semi_join, sql_set_op, sql_subquery, sql_translate_env, src, src_df, src_local, src_mysql, src_postgres, src_sqlite, src_tbls, summarise, summarise_, summarise_all, summarise_at, summarise_each, summarise_each_, summarise_if, summarize, summarize_, summarize_all, summarize_at, summarize_each, summarize_each_, summarize_if, tally, tally_, tbl, tbl_cube, tbl_df, tbl_nongroup_vars, tbl_vars, top_n, transmute, transmute_, transmute_all, transmute_at, transmute_if, ungroup, union_all, validate_grouped_df, vars, with_order, wrap_dbplyr_obj
  1: order_variables(example_c14_date_list) at testthat/test_c14_date_list_order_variables.R:5
  2: order_variables.c14_date_list(example_c14_date_list)
  3: x %>% dplyr::select(dplyr::matches("^sourcedb$"), dplyr::matches("^method$"), dplyr::matches("^labnr$"), 
         .data[["c14age"]], .data[["c14std"]], dplyr::matches("^calprobdistr$"), dplyr::matches("^calrange$"), 
         dplyr::matches("^sigma$"), dplyr::matches("^c13val$"), dplyr::matches("^site$"), 
         dplyr::matches("^sitetype$"), dplyr::matches("^feature$"), dplyr::matches("^period$"), 
         dplyr::matches("^culture$"), dplyr::matches("^material$"), dplyr::matches("^material_thes$"), 
         dplyr::matches("^species$"), dplyr::matches("^region$"), dplyr::matches("^country$"), 
         dplyr::matches("^country_coord$"), dplyr::matches("^country_thes$"), dplyr::matches("^country_final$"), 
         dplyr::matches("^lat$"), dplyr::matches("^lon$"), dplyr::matches("^coord_precision$"), 
         dplyr::matches("^shortref$"), dplyr::matches("^comment$"), dplyr::matches("^duplicate_group$"), 
         dplyr::matches("^duplicate_remove_log$"), dplyr::everything())
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: withVisible(function_list[[k]](value))
  10: function_list[[k]](value)
  11: dplyr::select
  12: getExportedValue(pkg, name)
  13: asNamespace(ns)
  14: getNamespace(ns)
  15: tryCatch(loadNamespace(name), error = function(e) stop(e))
  16: tryCatchList(expr, classes, parentenv, handlers)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: value[[3L]](cond)
  
  == testthat results  ===========================================================
  OK: 18 SKIPPED: 1 FAILED: 10
  1.  Error: as.c14_date_list gives back a c14_date_list with correct input (@test_c14_date_list_basic.R#6) 
  2.  Error: as.c14_date_list ignores additional columns (@test_c14_date_list_basic.R#24) 
  3.  Error: (unknown) (@test_c14_date_list_calibrate.R#3) 
  4.  Error: (unknown) (@test_c14_date_list_classify_material.R#5) 
  5.  Error: (unknown) (@test_c14_date_list_coordinate_precision.R#5) 
  6.  Error: (unknown) (@test_c14_date_list_country_attribution.R#7) 
  7.  Error: (unknown) (@test_c14_date_list_duplicates.R#5) 
  8.  Error: (unknown) (@test_c14_date_list_enforce_types.R#5) 
  9.  Error: (unknown) (@test_c14_date_list_fuse.R#3) 
  10. Error: (unknown) (@test_c14_date_list_order_variables.R#5) 
  
  Error: testthat unit tests failed
  Execution halted