Running ‘testthat.R’ [31s/34s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(sweep)
  > 
  > test_check("sweep")
  ── 1. Error: sw_sweep test returns tibble with correct rows and columns. (@test_
  could not find function "mutate"
  1: bike_sales %>% mutate(month.date = as_date(as.yearmon(order.date))) %>% group_by(month.date) %>% 
         summarize(total.daily.sales = sum(price.ext)) at testthat/test_sw_sweep.R:146
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  
  ── 2. Error: sw_*.StructTS test returns tibble with correct rows and columns. (@
  could not find function "mutate"
  1: bike_sales %>% mutate(month.date = as_date(as.yearmon(order.date))) %>% group_by(month.date) %>% 
         summarize(total.daily.sales = sum(price.ext)) at testthat/test_tidiers_StructTS.R:47
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  
  ── 3. Error: sw_*.Arima test returns tibble with correct rows and columns. (@tes
  could not find function "mutate"
  1: bike_sales %>% mutate(month.date = as_date(as.yearmon(order.date))) %>% group_by(month.date) %>% 
         summarize(total.daily.sales = sum(price.ext)) at testthat/test_tidiers_arima.R:77
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  
  ── 4. Error: sw_*.bats test returns tibble with correct rows and columns. (@test
  could not find function "mutate"
  1: bike_sales %>% mutate(month.date = as_date(as.yearmon(order.date))) %>% group_by(month.date) %>% 
         summarize(total.daily.sales = sum(price.ext)) at testthat/test_tidiers_bats_tbats.R:79
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  
  ── 5. Error: sw_*.decomposed.ts test returns tibble with correct rows and column
  could not find function "mutate"
  1: USAccDeaths %>% tk_tbl() %>% mutate(index = as_date(index)) %>% tk_ts(start = 1973, 
         freq = 12, silent = TRUE) at testthat/test_tidiers_decomposed_ts.R:23
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  
  ── 6. Error: sw_*.ets test returns tibble with correct rows and columns. (@test_
  could not find function "mutate"
  1: bike_sales %>% mutate(month.date = as_date(as.yearmon(order.date))) %>% group_by(month.date) %>% 
         summarize(total.daily.sales = sum(price.ext)) at testthat/test_tidiers_ets.R:52
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  
  ── 7. Error: sw_*.HoltWinters test returns tibble with correct rows and columns.
  could not find function "mutate"
  1: bike_sales %>% mutate(month.date = as_date(as.yearmon(order.date))) %>% group_by(month.date) %>% 
         summarize(total.daily.sales = sum(price.ext)) at testthat/test_tidiers_hw.R:62
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  
  ── 8. Error: sw_*.nnetar test returns tibble with correct rows and columns. (@te
  could not find function "mutate"
  1: bike_sales %>% mutate(month.date = as_date(as.yearmon(order.date))) %>% group_by(month.date) %>% 
         summarize(total.daily.sales = sum(price.ext)) at testthat/test_tidiers_nnetar.R:60
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 168 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 8 ]
  1. Error: sw_sweep test returns tibble with correct rows and columns. (@test_sw_sweep.R#146) 
  2. Error: sw_*.StructTS test returns tibble with correct rows and columns. (@test_tidiers_StructTS.R#47) 
  3. Error: sw_*.Arima test returns tibble with correct rows and columns. (@test_tidiers_arima.R#77) 
  4. Error: sw_*.bats test returns tibble with correct rows and columns. (@test_tidiers_bats_tbats.R#79) 
  5. Error: sw_*.decomposed.ts test returns tibble with correct rows and columns. (@test_tidiers_decomposed_ts.R#23) 
  6. Error: sw_*.ets test returns tibble with correct rows and columns. (@test_tidiers_ets.R#52) 
  7. Error: sw_*.HoltWinters test returns tibble with correct rows and columns. (@test_tidiers_hw.R#62) 
  8. Error: sw_*.nnetar test returns tibble with correct rows and columns. (@test_tidiers_nnetar.R#60) 
  
  Error: testthat unit tests failed
  Execution halted