Running ‘testthat.R’ [2s/2s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(frequencies)
  > 
  > test_check("frequencies")
  ── 1. Error: numbers and letters aggregations are correct (@test_freq_two_vects.
  Column `get.col1.` is unknown
  1: expect_equal(freq_two_vects(tbl, numbers, letters, FALSE)[1:5, ], check_numbers_letters_f) at testthat/test_freq_two_vects.R:44
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: freq_two_vects(tbl, numbers, letters, FALSE)
  5: with(df, xtabs(~get(col1) + get(col2))) %>% dplyr::as_data_frame(.) %>% dplyr::group_by(get.col1.) %>% 
         dplyr::mutate(Percentage = round(n * 100/sum(n), 1)) %>% dplyr::ungroup() %>% 
         dplyr::arrange(get.col1.)
  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`)
  11: function_list[[i]](value)
  12: dplyr::group_by(., get.col1.)
  13: group_by.data.frame(., get.col1.)
  14: grouped_df(groups$data, groups$group_names)
  15: grouped_df_impl(data, unname(vars), drop)
  
  ── 2. Error: dates and logicals aggregations are correct (@test_freq_two_vects.R
  Column `get.col1.` is unknown
  1: expect_equal(freq_two_vects(tbl, dates, logicals, FALSE)[1:5, ], check_dates_logicals_f) at testthat/test_freq_two_vects.R:77
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: freq_two_vects(tbl, dates, logicals, FALSE)
  5: with(df, xtabs(~get(col1) + get(col2))) %>% dplyr::as_data_frame(.) %>% dplyr::group_by(get.col1.) %>% 
         dplyr::mutate(Percentage = round(n * 100/sum(n), 1)) %>% dplyr::ungroup() %>% 
         dplyr::arrange(get.col1.)
  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`)
  11: function_list[[i]](value)
  12: dplyr::group_by(., get.col1.)
  13: group_by.data.frame(., get.col1.)
  14: grouped_df(groups$data, groups$group_names)
  15: grouped_df_impl(data, unname(vars), drop)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 24 SKIPPED: 0 FAILED: 2
  1. Error: numbers and letters aggregations are correct (@test_freq_two_vects.R#44) 
  2. Error: dates and logicals aggregations are correct (@test_freq_two_vects.R#77) 
  
  Error: testthat unit tests failed
  Execution halted