Running 'testthat.R' [26s]
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#94)  -------------------------
  No role currently exists for column(s): 'easyalluvialid'. Please use `update_role()` instead.
  1: suppressWarnings({
         data_highflow = ggplot2::diamonds %>% mutate(id = as.factor(row_number())) %>% 
             manip_bin_numerics() %>% gather(key = "key", value = "value", -id)
     }) at testthat/test_alluvial_long.R:94
  2: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  3: ggplot2::diamonds %>% mutate(id = as.factor(row_number())) %>% manip_bin_numerics() %>% 
         gather(key = "key", value = "value", -id) at testthat/test_alluvial_long.R:96
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: function_list[[i]](value)
  10: manip_bin_numerics(.)
  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)
  
  -- 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: 6 SKIPPED: 9 FAILED: 6
  1. Error: alluvial_long (@test_alluvial_long.R#94) 
  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