Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tibbletime)
  
  Attaching package: 'tibbletime'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("tibbletime")
  ── 1. Error: nest() with index creates tbl_df (@test_compat-tidyr.R#22)  ───────
  invalid argument type
  1: FANG_g_time %>% tidyr::nest() at testthat/test_compat-tidyr.R:22
  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: tidyr::nest(.)
  10: nest.tbl_time(.)
  11: tidyr::nest(as_tibble(data), ..., .key = !!.key)
  12: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
  13: check_key(.key)
  14: is_missing(.key)
  
  ── 2. Error: nest() without index stays tbl_time (@test_compat-tidyr.R#31)  ────
  invalid argument type
  1: FANG_time %>% tidyr::nest(-date) at testthat/test_compat-tidyr.R:31
  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: tidyr::nest(., -date)
  10: nest(.data, !!!cols)
  11: nest.tbl_time(.data, !!!cols)
  12: tidyr::nest(as_tibble(data), ..., .key = !!.key)
  13: nest.tbl_df(as_tibble(data), ..., .key = !!.key)
  14: check_key(.key)
  15: is_missing(.key)
  
  ── 3. Error: unnest() with index goes back to tbl_time (@test_compat-tidyr.R#38)
  invalid argument type
  1: FANG_g_time %>% tidyr::nest() %>% tidyr::unnest() at testthat/test_compat-tidyr.R:38
  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: tidyr::nest(.)
  9: nest.tbl_time(.)
  10: tidyr::nest(as_tibble(data), ..., .key = !!.key)
  11: nest.grouped_df(as_tibble(data), ..., .key = !!.key)
  12: check_key(.key)
  13: is_missing(.key)
  
  ── 4. Error: unnest() without index stays tbl_time (@test_compat-tidyr.R#46)  ──
  invalid argument type
  1: FANG_time %>% tidyr::nest(-symbol, -date) %>% tidyr::unnest() at testthat/test_compat-tidyr.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: tidyr::nest(., -symbol, -date)
  9: nest(.data, !!!cols)
  10: nest.tbl_time(.data, !!!cols)
  11: tidyr::nest(as_tibble(data), ..., .key = !!.key)
  12: nest.tbl_df(as_tibble(data), ..., .key = !!.key)
  13: check_key(.key)
  14: is_missing(.key)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 123 | SKIPPED: 0 | WARNINGS: 2 | FAILED: 4 ]
  1. Error: nest() with index creates tbl_df (@test_compat-tidyr.R#22) 
  2. Error: nest() without index stays tbl_time (@test_compat-tidyr.R#31) 
  3. Error: unnest() with index goes back to tbl_time (@test_compat-tidyr.R#38) 
  4. Error: unnest() without index stays tbl_time (@test_compat-tidyr.R#46) 
  
  Error: testthat unit tests failed
  Execution halted