Running ‘testthat.R’ [6s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(easyalluvial)
  > 
  > test_check("easyalluvial")
  ── 1. Error: alluvial_long (@test_alluvial_long.R#13)  ─────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("long_fill_carrier", p) at testthat/test_alluvial_long.R:13
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 2. Error: alluvial_wide (@test_alluvial_wide.R#17)  ─────────────────────────
  No role currently exists for column(s): 'easyalluvialid'. Please use `update_role()` instead.
  1: alluvial_wide(data = data, max_variables = max_variables, fill_by = "first_variable") at testthat/test_alluvial_wide.R:17
  2: data %>% manip_bin_numerics(bins, bin_labels)
  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: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: manip_bin_numerics(., bins, bin_labels)
  11: recipe(df) %>% add_role(easyalluvialid, new_role = "id variable")
  12: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  13: eval(quote(`_fseq`(`_lhs`)), env, env)
  14: eval(quote(`_fseq`(`_lhs`)), env, env)
  15: `_fseq`(`_lhs`)
  16: freduce(value, `_function_list`)
  17: withVisible(function_list[[k]](value))
  18: function_list[[k]](value)
  19: add_role(., easyalluvialid, new_role = "id variable")
  20: stop(glue::glue("No role currently exists for column(s): {vars}. Please use ", "`update_role()` instead."), 
         call. = FALSE)
  
  ── 3. Error: manip_bin_numerics (@test_manip.R#28)  ────────────────────────────
  No role currently exists for column(s): 'easyalluvialid'. Please use `update_role()` instead.
  1: manip_bin_numerics(data) at testthat/test_manip.R:28
  2: recipe(df) %>% add_role(easyalluvialid, new_role = "id variable")
  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: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: add_role(., easyalluvialid, new_role = "id variable")
  11: stop(glue::glue("No role currently exists for column(s): {vars}. Please use ", "`update_role()` instead."), 
         call. = FALSE)
  
  ── 4. Error: manip_bin_numerics zero variance columns (@test_manip.R#84)  ──────
  No role currently exists for column(s): 'easyalluvialid'. Please use `update_role()` instead.
  1: manip_bin_numerics(data) at testthat/test_manip.R:84
  2: recipe(df) %>% add_role(easyalluvialid, new_role = "id variable")
  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: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: add_role(., easyalluvialid, new_role = "id variable")
  11: stop(glue::glue("No role currently exists for column(s): {vars}. Please use ", "`update_role()` instead."), 
         call. = FALSE)
  
  ── 5. Error: manip_bin_numerics with vector (@test_manip.R#96)  ────────────────
  No role currently exists for column(s): 'easyalluvialid'. Please use `update_role()` instead.
  1: manip_bin_numerics(mtcars$mpg) at testthat/test_manip.R:96
  2: recipe(df) %>% add_role(easyalluvialid, new_role = "id variable")
  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: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: add_role(., easyalluvialid, new_role = "id variable")
  11: stop(glue::glue("No role currently exists for column(s): {vars}. Please use ", "`update_role()` instead."), 
         call. = FALSE)
  
  ── 6. Error: plot condensation (@test_plot_condensation.R#15)  ─────────────────
  No role currently exists for column(s): 'easyalluvialid'. Please use `update_role()` instead.
  1: plot_condensation(df) at testthat/test_plot_condensation.R:15
  2: manip_bin_numerics(df) %>% mutate_if(is.factor, as.character)
  3: eval(lhs, parent, parent)
  4: eval(lhs, parent, parent)
  5: manip_bin_numerics(df)
  6: recipe(df) %>% add_role(easyalluvialid, new_role = "id variable")
  7: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: `_fseq`(`_lhs`)
  11: freduce(value, `_function_list`)
  12: withVisible(function_list[[k]](value))
  13: function_list[[k]](value)
  14: add_role(., easyalluvialid, new_role = "id variable")
  15: stop(glue::glue("No role currently exists for column(s): {vars}. Please use ", "`update_role()` instead."), 
         call. = FALSE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 5 SKIPPED: 0 FAILED: 6
  1. Error: alluvial_long (@test_alluvial_long.R#13) 
  2. Error: alluvial_wide (@test_alluvial_wide.R#17) 
  3. Error: manip_bin_numerics (@test_manip.R#28) 
  4. Error: manip_bin_numerics zero variance columns (@test_manip.R#84) 
  5. Error: manip_bin_numerics with vector (@test_manip.R#96) 
  6. Error: plot condensation (@test_plot_condensation.R#15) 
  
  Error: testthat unit tests failed
  Execution halted