Running ‘testthat.R’ [13s/16s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(timetk)
  > 
  > test_check("timetk")
  ── 1. Error: (unknown) (@test_tk_augment_timeseries.R#5)  ──────────────────────
  object 'symbol' not found
  1: FANG %>% filter(symbol == "FB") at testthat/test_tk_augment_timeseries.R:5
  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: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: filter(., symbol == "FB")
  
  ── 2. Error: tk_index(decomposed.ts) test returns correct format. (@test_tk_inde
  could not find function "mutate"
  1: USAccDeaths %>% tk_tbl() %>% mutate(index = as_date(index)) %>% tk_ts(start = 1973, 
         freq = 12, silent = T) at testthat/test_tk_index.R:324
  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: (unknown) (@test_tk_make_future_timeseries.R#46)  ─────────────────
  object 'symbol' not found
  1: FANG %>% filter(symbol == "FB") %>% tk_index() at testthat/test_tk_make_future_timeseries.R:46
  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: filter(., symbol == "FB")
  
  ── 4. Error: tbl to xts test returns xts with correct rows and columns. (@test_t
  could not find function "tibble"
  1: .handleSimpleError(function (e) 
     {
         handled <<- TRUE
         test_error <<- e
         options(expressions = expressions_opt_new)
         on.exit(options(expressions = expressions_opt), add = TRUE)
         e$expectation_calls <- frame_calls(11, 2)
         test_error <<- e
         register_expectation(e)
         e$handled <- TRUE
         test_error <<- e
     }, "could not find function \"tibble\"", base::quote(tibble(`date column` = seq.Date(from = as.Date("2017-01-01"), 
         by = "day", length.out = 10), `my value` = 1:10))) at testthat/test_tk_xts.R:39
  2: eval(code, test_env)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 213 | SKIPPED: 0 | WARNINGS: 2 | FAILED: 4 ]
  1. Error: (unknown) (@test_tk_augment_timeseries.R#5) 
  2. Error: tk_index(decomposed.ts) test returns correct format. (@test_tk_index.R#324) 
  3. Error: (unknown) (@test_tk_make_future_timeseries.R#46) 
  4. Error: tbl to xts test returns xts with correct rows and columns. (@test_tk_xts.R#39) 
  
  Error: testthat unit tests failed
  Execution halted