Running 'testthat.R' [3s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(cutpointr)
  > 
  > test_check("cutpointr")
  -- 1. Error: Cutpointr returns a cutpointr without NAs and a certain Nr of rows 
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide) at testthat/test-cutpointr.R:3
  2: cutpointr.default(suicide, dsi, suicide)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 2. Error: Cutpointr works with different data types (@test-cutpointr.R#19)  -
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y) at testthat/test-cutpointr.R:19
  2: cutpointr.default(tempdat, x, y)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 3. Error: Bootstrap does not return duplicate colnames (@test-cutpointr.R#78)
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, boot_runs = 20) at testthat/test-cutpointr.R:78
  2: cutpointr.default(tempdat, x, y, boot_runs = 20)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 4. Error: Plotting with bootstrapping is silent (@test-cutpointr.R#94)  -----
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, boot_runs = 20) at testthat/test-cutpointr.R:94
  2: cutpointr.default(tempdat, x, y, boot_runs = 20)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 5. Error: AUC calculation is correct and works with Inf and -Inf (@test-cutpo
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y) at testthat/test-cutpointr.R:110
  2: cutpointr.default(tempdat, x, y)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 6. Error: Correct midpoints are found (@test-cutpointr.R#125)  --------------
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(temp, x, y, use_midpoints = TRUE, pos_class = 1) at testthat/test-cutpointr.R:125
  2: cutpointr.default(temp, x, y, use_midpoints = TRUE, pos_class = 1)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 7. Error: find_metric_name finds metric (@test-cutpointr.R#136)  ------------
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, method = maximize_metric, metric = youden) at testthat/test-cutpointr.R:136
  2: cutpointr.default(tempdat, x, y, method = maximize_metric, metric = youden)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 8. Error: no duplicate column names are returned (@test-cutpointr.R#150)  ---
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, method = oc_youden_normal) at testthat/test-cutpointr.R:150
  2: cutpointr.default(tempdat, x, y, method = oc_youden_normal)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 9. Error: Correct cutpoints with example data (@test-cutpointr.R#188)  ------
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(exdat, preds, obs, method = minimize_metric, metric = abs_d_sens_spec) at testthat/test-cutpointr.R:188
  2: cutpointr.default(exdat, preds, obs, method = minimize_metric, metric = abs_d_sens_spec)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 10. Error: Metric colnames that are already in cutpointr are modified (@test-
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide, metric = metricfunc, boot_runs = 5) at testthat/test-cutpointr.R:236
  2: cutpointr.default(suicide, dsi, suicide, metric = metricfunc, boot_runs = 5)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 11. Error: SE and NSE interface give identical results (@test-cutpointr.R#287
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide) at testthat/test-cutpointr.R:287
  2: cutpointr.default(suicide, dsi, suicide)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 12. Error: Bootstrap returns plausible results (@test-cutpointr.R#325)  -----
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: suppressWarnings(cutpointr(suicide, dsi, suicide, boot_runs = 50, break_ties = mean)) at testthat/test-cutpointr.R:325
  2: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  3: cutpointr(suicide, dsi, suicide, boot_runs = 50, break_ties = mean)
  4: cutpointr.default(suicide, dsi, suicide, boot_runs = 50, break_ties = mean)
  5: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  6: dat %>% tidyr::nest_(key_col = "data")
  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: tidyr::nest_(., key_col = "data")
  15: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 13. Error: Summary by class returns correct stats (@test-cutpointr.R#399)  --
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide) at testthat/test-cutpointr.R:399
  2: cutpointr.default(suicide, dsi, suicide)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 14. Error: Results for youden are correct (@test-cutpointr.R#450)  ----------
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide, metric = youden) at testthat/test-cutpointr.R:450
  2: cutpointr.default(suicide, dsi, suicide, metric = youden)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 15. Error: Results for p_chisquared are equal to results by OptimalCutpoints 
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: suppressWarnings(opt_cut_cp <- cutpointr(tempdat, x, y, method = minimize_metric, 
         metric = p_chisquared, direction = ">=", pos_class = 1, tol_metric = 0)) at testthat/test-cutpointr.R:463
  2: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  3: cutpointr(tempdat, x, y, method = minimize_metric, metric = p_chisquared, direction = ">=", 
         pos_class = 1, tol_metric = 0)
  4: cutpointr.default(tempdat, x, y, method = minimize_metric, metric = p_chisquared, 
         direction = ">=", pos_class = 1, tol_metric = 0)
  5: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  6: dat %>% tidyr::nest_(key_col = "data")
  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: tidyr::nest_(., key_col = "data")
  15: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 16. Error: Results for prod_sens_spec are equal to results by OptimalCutpoint
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, method = maximize_metric, metric = prod_sens_spec, direction = ">=", 
         pos_class = 1) at testthat/test-cutpointr.R:484
  2: cutpointr.default(tempdat, x, y, method = maximize_metric, metric = prod_sens_spec, 
         direction = ">=", pos_class = 1)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 17. Error: Results for abs_d_ppv_npv are equal to results by OptimalCutpoints
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, method = minimize_metric, metric = abs_d_ppv_npv, direction = ">=", 
         pos_class = 1) at testthat/test-cutpointr.R:501
  2: cutpointr.default(tempdat, x, y, method = minimize_metric, metric = abs_d_ppv_npv, 
         direction = ">=", pos_class = 1)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 18. Error: Results for sum_ppv_npv are equal to results by OptimalCutpoints (
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, method = maximize_metric, metric = sum_ppv_npv, direction = ">=", 
         pos_class = 1) at testthat/test-cutpointr.R:518
  2: cutpointr.default(tempdat, x, y, method = maximize_metric, metric = sum_ppv_npv, 
         direction = ">=", pos_class = 1)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 19. Error: Results for prod_ppv_npv are equal to results by OptimalCutpoints 
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, method = maximize_metric, metric = prod_ppv_npv, direction = ">=", 
         pos_class = 1) at testthat/test-cutpointr.R:535
  2: cutpointr.default(tempdat, x, y, method = maximize_metric, metric = prod_ppv_npv, 
         direction = ">=", pos_class = 1)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 20. Error: Results for accuracy are equal to results by OptimalCutpoints (@te
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, method = maximize_metric, metric = accuracy, direction = ">=", 
         pos_class = 1) at testthat/test-cutpointr.R:552
  2: cutpointr.default(tempdat, x, y, method = maximize_metric, metric = accuracy, direction = ">=", 
         pos_class = 1)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 21. Error: Results for roc01 are equal to results by OptimalCutpoints (@test-
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, method = minimize_metric, metric = roc01, direction = ">=", 
         pos_class = 1) at testthat/test-cutpointr.R:569
  2: cutpointr.default(tempdat, x, y, method = minimize_metric, metric = roc01, direction = ">=", 
         pos_class = 1)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 22. Error: Results for constrained metrics are equal to results by OptimalCut
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, metric = sens_constrain, min_constrain = 0.85, constrain_metric = specificity) at testthat/test-cutpointr.R:586
  2: cutpointr.default(tempdat, x, y, metric = sens_constrain, min_constrain = 0.85, constrain_metric = specificity)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 23. Error: Results for F1_score are equal to results by ROCR (@test-cutpointr
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, method = maximize_metric, metric = F1_score, direction = ">=", 
         pos_class = 1) at testthat/test-cutpointr.R:616
  2: cutpointr.default(tempdat, x, y, method = maximize_metric, metric = F1_score, direction = ">=", 
         pos_class = 1)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 24. Error: Results for misclassification_cost are equal to results by Optimal
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, method = minimize_metric, metric = misclassification_cost, 
         direction = ">=", cost_fp = 1, cost_fn = 3, pos_class = 1) at testthat/test-cutpointr.R:656
  2: cutpointr.default(tempdat, x, y, method = minimize_metric, metric = misclassification_cost, 
         direction = ">=", cost_fp = 1, cost_fn = 3, pos_class = 1)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 25. Error: LOESS smoothing does not return warnings or errors (@test-cutpoint
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: expect_silent(suppressMessages(cp <- cutpointr(tempdat, x, y, method = maximize_loess_metric, 
         user.span = 1, metric = accuracy, direction = ">=", pos_class = 1, boot_runs = 10))) at testthat/test-cutpointr.R:693
  2: quasi_capture(enquo(object), NULL, evaluate_promise)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(.quo), get_env(.quo))
  9: suppressMessages(cp <- cutpointr(tempdat, x, y, method = maximize_loess_metric, user.span = 1, 
         metric = accuracy, direction = ">=", pos_class = 1, boot_runs = 10))
  10: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  ...
  14: dat %>% tidyr::nest_(key_col = "data")
  15: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  16: eval(quote(`_fseq`(`_lhs`)), env, env)
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: `_fseq`(`_lhs`)
  19: freduce(value, `_function_list`)
  20: withVisible(function_list[[k]](value))
  21: function_list[[k]](value)
  22: tidyr::nest_(., key_col = "data")
  23: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 26. Error: cutpointr returns same result with NSE interface and raw data (@te
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide, metric = prod_sens_spec) at testthat/test-cutpointr.R:751
  2: cutpointr.default(suicide, dsi, suicide, metric = prod_sens_spec)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 27. Error: Prevalence is correctly calculated (@test-cutpointr.R#768)  ------
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y, pos_class = 1, direction = ">=") at testthat/test-cutpointr.R:768
  2: cutpointr.default(tempdat, x, y, pos_class = 1, direction = ">=")
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 28. Error: multi_cutpointr runs without errors (@test-cutpointr.R#788)  -----
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: multi_cutpointr(suicide, x = c("age", "dsi"), class = "suicide", pos_class = "yes") at testthat/test-cutpointr.R:788
  2: purrr::map_df(x, function(coln) {
         if (!silent) 
             message(paste0(coln, ":"))
         cutpointr_(data, coln, class, silent = silent, ...)
     })
  3: map(.x, .f, ...)
  4: .f(.x[[i]], ...)
  5: cutpointr_(data, coln, class, silent = silent, ...)
  6: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric = 1e-06, ...)
  7: dat %>% tidyr::nest_(key_col = "data")
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: `_fseq`(`_lhs`)
  12: freduce(value, `_function_list`)
  13: withVisible(function_list[[k]](value))
  14: function_list[[k]](value)
  15: tidyr::nest_(., key_col = "data")
  16: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 29. Error: AUC is always >= 0.5 with automatic assumptions (@test-cutpointr.R
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(tempdat, x, y) at testthat/test-cutpointr.R:807
  2: cutpointr.default(tempdat, x, y)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 30. Error: find_metric_name_boot finds correct metric (@test-cutpointr.R#815)
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(x = suicide$dsi, class = suicide$suicide, metric = abs_d_sens_spec, method = minimize_metric, 
         boot_runs = 10) at testthat/test-cutpointr.R:815
  2: cutpointr.numeric(x = suicide$dsi, class = suicide$suicide, metric = abs_d_sens_spec, 
         method = minimize_metric, boot_runs = 10)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 31. Error: same results with or without silent (@test-cutpointr.R#842)  -----
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: expect_identical(cutpointr(suicide, dsi, suicide, gender), cutpointr(suicide, dsi, 
         suicide, gender, silent = TRUE)) at testthat/test-cutpointr.R:842
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: cutpointr(suicide, dsi, suicide, gender)
  5: cutpointr.default(suicide, dsi, suicide, gender)
  6: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  7: dat %>% dplyr::group_by_("subgroup") %>% tidyr::nest_(key_col = "data") %>% dplyr::mutate_(subgroup = ~as.character(subgroup))
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: `_fseq`(`_lhs`)
  12: freduce(value, `_function_list`)
  13: function_list[[i]](value)
  14: tidyr::nest_(., key_col = "data")
  15: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 32. Error: plot_cutpointr runs (@test-cutpointr.R#853)  ---------------------
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide) at testthat/test-cutpointr.R:853
  2: cutpointr.default(suicide, dsi, suicide)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 33. Error: smoothing splines lead to plausible results (@test-cutpointr.R#886
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide, method = maximize_spline_metric, nknots = 5, spar = 0.3) at testthat/test-cutpointr.R:886
  2: cutpointr.default(suicide, dsi, suicide, method = maximize_spline_metric, nknots = 5, 
         spar = 0.3)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 34. Error: gam smoothing leads to plausible results (@test-cutpointr.R#912)  
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide, method = maximize_gam_metric, metric = youden) at testthat/test-cutpointr.R:912
  2: cutpointr.default(suicide, dsi, suicide, method = maximize_gam_metric, metric = youden)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 35. Error: bootstrapped cutpoints lead to plausible results (@test-cutpointr.
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide, method = maximize_boot_metric, metric = youden, 
         boot_cut = 10) at testthat/test-cutpointr.R:939
  2: cutpointr.default(suicide, dsi, suicide, method = maximize_boot_metric, metric = youden, 
         boot_cut = 10)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 36. Error: this led to an error with get_rev_dups Rcpp function (@test-cutpoi
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: expect_silent(cutpointr(dat, x, y, method = maximize_spline_metric, nknots = 50, 
         silent = TRUE)) at testthat/test-cutpointr.R:967
  2: quasi_capture(enquo(object), NULL, evaluate_promise)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(.quo), get_env(.quo))
  9: cutpointr(dat, x, y, method = maximize_spline_metric, nknots = 50, silent = TRUE)
  10: cutpointr.default(dat, x, y, method = maximize_spline_metric, nknots = 50, silent = TRUE)
  ...
  14: dat %>% tidyr::nest_(key_col = "data")
  15: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  16: eval(quote(`_fseq`(`_lhs`)), env, env)
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: `_fseq`(`_lhs`)
  19: freduce(value, `_function_list`)
  20: withVisible(function_list[[k]](value))
  21: function_list[[k]](value)
  22: tidyr::nest_(., key_col = "data")
  23: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 37. Error: cutpointr handles multiple optimal cutpoints correctly (@test-cutp
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: expect_message(cp <- cutpointr(tempdat, x = x, class = y, break_ties = c, pos_class = 1, 
         direction = ">=")) at testthat/test-cutpointr.R:979
  2: quasi_capture(enquo(object), label, capture_messages)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(.quo), get_env(.quo))
  6: cutpointr(tempdat, x = x, class = y, break_ties = c, pos_class = 1, direction = ">=")
  7: cutpointr.default(tempdat, x = x, class = y, break_ties = c, pos_class = 1, direction = ">=")
  8: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  9: dat %>% tidyr::nest_(key_col = "data")
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: withVisible(function_list[[k]](value))
  16: function_list[[k]](value)
  17: tidyr::nest_(., key_col = "data")
  18: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 38. Error: Main metric gets replaced correctly when ties are broken (@test-cu
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(dat, x, group, break_ties = c) at testthat/test-cutpointr.R:1031
  2: cutpointr.default(dat, x, group, break_ties = c)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 39. Error: cutpointr works with custom method function (@test-cutpointr.R#112
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide, method = CutOff_Optimised) at testthat/test-cutpointr.R:1125
  2: cutpointr.default(suicide, dsi, suicide, method = CutOff_Optimised)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 40. Error: predict behaves as expected (@test-cutpointr.R#1155)  ------------
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide, gender) at testthat/test-cutpointr.R:1155
  2: cutpointr.default(suicide, dsi, suicide, gender)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% dplyr::group_by_("subgroup") %>% tidyr::nest_(key_col = "data") %>% dplyr::mutate_(subgroup = ~as.character(subgroup))
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  11: tidyr::nest_(., key_col = "data")
  12: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 41. Error: summary is printed correctly (@test-cutpointr.R#1200)  -----------
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide, method = oc_youden_kernel, metric = accuracy, boot_runs = 10) at testthat/test-cutpointr.R:1200
  2: cutpointr.default(suicide, dsi, suicide, method = oc_youden_kernel, metric = accuracy, 
         boot_runs = 10)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% tidyr::nest_(key_col = "data")
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: tidyr::nest_(., key_col = "data")
  13: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 42. Error: add_metric adds metrics correctly (@test-cutpointr.R#1247)  ------
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: cutpointr(suicide, dsi, suicide, gender) at testthat/test-cutpointr.R:1247
  2: cutpointr.default(suicide, dsi, suicide, gender)
  3: cutpointr_internal(x, class, subgroup, method, metric, pos_class, neg_class, direction, 
         boot_runs, use_midpoints, break_ties, na.rm, allowParallel, predictor, outcome, 
         mod_name, subgroup_var, tol_metric, ...)
  4: dat %>% dplyr::group_by_("subgroup") %>% tidyr::nest_(key_col = "data") %>% dplyr::mutate_(subgroup = ~as.character(subgroup))
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  11: tidyr::nest_(., key_col = "data")
  12: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 43. Error: cutpointr works if method / metric are called with :: (@test-cutpo
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: expect_silent(cutpointr(suicide, dsi, suicide, method = cutpointr::maximize_boot_metric, 
         metric = cutpointr::accuracy, silent = TRUE)) at testthat/test-cutpointr.R:1301
  2: quasi_capture(enquo(object), NULL, evaluate_promise)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(.quo), get_env(.quo))
  9: cutpointr(suicide, dsi, suicide, method = cutpointr::maximize_boot_metric, metric = cutpointr::accuracy, 
         silent = TRUE)
  10: cutpointr.default(suicide, dsi, suicide, method = cutpointr::maximize_boot_metric, 
         metric = cutpointr::accuracy, silent = TRUE)
  ...
  14: dat %>% tidyr::nest_(key_col = "data")
  15: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  16: eval(quote(`_fseq`(`_lhs`)), env, env)
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: `_fseq`(`_lhs`)
  19: freduce(value, `_function_list`)
  20: withVisible(function_list[[k]](value))
  21: function_list[[k]](value)
  22: tidyr::nest_(., key_col = "data")
  23: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 44. Error: Summary(multi_cutpointr) is silent (@test-cutpointr.R#1324)  -----
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: expect_silent(smcp <- summary(multi_cutpointr(suicide, x = c("age", "dsi"), class = "suicide", 
         pos_class = "yes", silent = TRUE))) at testthat/test-cutpointr.R:1324
  2: quasi_capture(enquo(object), NULL, evaluate_promise)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(.quo), get_env(.quo))
  9: summary(multi_cutpointr(suicide, x = c("age", "dsi"), class = "suicide", pos_class = "yes", 
         silent = TRUE))
  10: multi_cutpointr(suicide, x = c("age", "dsi"), class = "suicide", pos_class = "yes", 
         silent = TRUE)
  ...
  18: dat %>% tidyr::nest_(key_col = "data")
  19: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  20: eval(quote(`_fseq`(`_lhs`)), env, env)
  21: eval(quote(`_fseq`(`_lhs`)), env, env)
  22: `_fseq`(`_lhs`)
  23: freduce(value, `_function_list`)
  24: withVisible(function_list[[k]](value))
  25: function_list[[k]](value)
  26: tidyr::nest_(., key_col = "data")
  27: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  -- 45. Error: multi_cutpointr fetches numeric columns correctly (@test-cutpointr
  `nest_()` is deprecated as of tidyr 1.0.0.
  Please use `nest()` instead.
  1: expect_silent(mcp <- multi_cutpointr(tempdat, class = "Species", silent = TRUE)) at testthat/test-cutpointr.R:1359
  2: quasi_capture(enquo(object), NULL, evaluate_promise)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(.quo), get_env(.quo))
  9: multi_cutpointr(tempdat, class = "Species", silent = TRUE)
  10: purrr::map_df(x, function(coln) {
         if (!silent) 
             message(paste0(coln, ":"))
         cutpointr_(data, coln, class, silent = silent, ...)
     })
  ...
  17: dat %>% tidyr::nest_(key_col = "data")
  18: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  19: eval(quote(`_fseq`(`_lhs`)), env, env)
  20: eval(quote(`_fseq`(`_lhs`)), env, env)
  21: `_fseq`(`_lhs`)
  22: freduce(value, `_function_list`)
  23: withVisible(function_list[[k]](value))
  24: function_list[[k]](value)
  25: tidyr::nest_(., key_col = "data")
  26: lifecycle::deprecate_stop("1.0.0", "nest_()", "nest()")
  
  == testthat results  ===========================================================
  [ OK: 28 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 45 ]
  1. Error: Cutpointr returns a cutpointr without NAs and a certain Nr of rows (@test-cutpointr.R#3) 
  2. Error: Cutpointr works with different data types (@test-cutpointr.R#19) 
  3. Error: Bootstrap does not return duplicate colnames (@test-cutpointr.R#78) 
  4. Error: Plotting with bootstrapping is silent (@test-cutpointr.R#94) 
  5. Error: AUC calculation is correct and works with Inf and -Inf (@test-cutpointr.R#110) 
  6. Error: Correct midpoints are found (@test-cutpointr.R#125) 
  7. Error: find_metric_name finds metric (@test-cutpointr.R#136) 
  8. Error: no duplicate column names are returned (@test-cutpointr.R#150) 
  9. Error: Correct cutpoints with example data (@test-cutpointr.R#188) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted