Running 'testthat.R' [16s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(dabestr)
  Loading required package: boot
  Loading required package: magrittr
  
  Attaching package: 'magrittr'
  
  The following objects are masked from 'package:testthat':
  
      equals, is_less_than, not
  
  > 
  > test_check("dabestr")
  -- 1. Error: Gardner-Altman custom aesthetics (@test-aesthetics.R#10)  ---------
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: test.data %>% dabest(Group, Measurement, idx = c("Control1", "Group1"), paired = FALSE) at testthat/test-aesthetics.R:10
  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: dabest(., Group, Measurement, idx = c("Control1", "Group1"), paired = FALSE)
  10: forcats::as_factor(data.out[[x_quoname]], all_groups)
  11: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  12: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  13: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 2. Error: Cumming custom aesthetics (@test-aesthetics.R#124)  ---------------
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: test.data %>% dabest(Group, Measurement, idx = list(c("Control1", "Group1", "Group3"), 
         c("Control2", "Group2", "Group4")), paired = FALSE) at testthat/test-aesthetics.R:124
  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: dabest(., Group, Measurement, idx = list(c("Control1", "Group1", "Group3"), c("Control2", 
         "Group2", "Group4")), paired = FALSE)
  10: forcats::as_factor(data.out[[x_quoname]], all_groups)
  11: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  12: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  13: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 3. Error: Two-group unpaired mean diff reports accurately (@test-bootstrap.R#
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: dabest(dummy.data, Group, Value, paired = FALSE, idx = c("Control", "Test")) at testthat/test-bootstrap.R:13
  2: forcats::as_factor(data.out[[x_quoname]], all_groups)
  3: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  4: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  5: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 4. Error: Two-group unpaired mean diff falls within 95 CI (@test-bootstrap.R#
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: dabest(dummy.data, Group, Value, ci = ci.for.test, paired = FALSE, idx = c("Control", 
         "Test"), seed = s * s) at testthat/test-bootstrap.R:40
  2: forcats::as_factor(data.out[[x_quoname]], all_groups)
  3: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  4: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  5: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 5. Error: Two-group paired mean diff reports accurately (@test-bootstrap.R#65
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: dabest(dummy.data, Group, Value, paired = TRUE, id.col = ID, idx = c("Control", "Test")) at testthat/test-bootstrap.R:65
  2: forcats::as_factor(data.out[[x_quoname]], all_groups)
  3: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  4: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  5: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 6. Error: Cumming two-groups unpaired (@test-cumming-plots.R#9)  ------------
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: test.data %>% dabest(Group, Measurement, idx = c("Control1", "Group1"), paired = FALSE) at testthat/test-cumming-plots.R:9
  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: dabest(., Group, Measurement, idx = c("Control1", "Group1"), paired = FALSE)
  10: forcats::as_factor(data.out[[x_quoname]], all_groups)
  11: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  12: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  13: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 7. Error: Cumming two-groups paired (@test-cumming-plots.R#28)  -------------
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: test.data %>% dabest(Group, Measurement, idx = c("Control1", "Group1"), paired = TRUE, 
         id.col = ID) at testthat/test-cumming-plots.R:28
  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: dabest(., Group, Measurement, idx = c("Control1", "Group1"), paired = TRUE, id.col = ID)
  10: forcats::as_factor(data.out[[x_quoname]], all_groups)
  11: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  12: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  13: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 8. Error: Cumming multi two-groups unpaired (@test-cumming-plots.R#46)  -----
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: test.data %>% dabest(Group, Measurement, idx = list(c("Control1", "Group1"), c("Control2", 
         "Group2")), paired = FALSE) at testthat/test-cumming-plots.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: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: dabest(., Group, Measurement, idx = list(c("Control1", "Group1"), c("Control2", "Group2")), 
         paired = FALSE)
  10: forcats::as_factor(data.out[[x_quoname]], all_groups)
  11: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  12: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  13: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 9. Error: Cumming multi two-groups paired (@test-cumming-plots.R#66)  -------
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: test.data %>% dabest(Group, Measurement, idx = list(c("Control1", "Group1"), c("Control2", 
         "Group2")), paired = TRUE, id.col = ID) at testthat/test-cumming-plots.R:66
  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: dabest(., Group, Measurement, idx = list(c("Control1", "Group1"), c("Control2", "Group2")), 
         paired = TRUE, id.col = ID)
  10: forcats::as_factor(data.out[[x_quoname]], all_groups)
  11: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  12: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  13: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 10. Error: Cumming shared control (@test-cumming-plots.R#96)  ---------------
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: test.data %>% dabest(Group, Measurement, idx = c("Control1", "Group1", "Group2", 
         "Group3"), paired = FALSE) at testthat/test-cumming-plots.R:96
  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: dabest(., Group, Measurement, idx = c("Control1", "Group1", "Group2", "Group3"), 
         paired = FALSE)
  10: forcats::as_factor(data.out[[x_quoname]], all_groups)
  11: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  12: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  13: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 11. Error: Cumming multi-group shared control (@test-cumming-plots.R#115)  --
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: test.data %>% dabest(Group, Measurement, list(c("Control1", "Group1", "Group3"), 
         c("Control2", "Group2", "Group4")), paired = FALSE) at testthat/test-cumming-plots.R:115
  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: dabest(., Group, Measurement, list(c("Control1", "Group1", "Group3"), c("Control2", 
         "Group2", "Group4")), paired = FALSE)
  10: forcats::as_factor(data.out[[x_quoname]], all_groups)
  11: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  12: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  13: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 12. Error: Gardner-Altman unpaired (@test-gardner-altman-plots.R#9)  --------
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: test.data %>% dabest(Group, Measurement, idx = c("Control1", "Group1"), paired = FALSE) at testthat/test-gardner-altman-plots.R:9
  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: dabest(., Group, Measurement, idx = c("Control1", "Group1"), paired = FALSE)
  10: forcats::as_factor(data.out[[x_quoname]], all_groups)
  11: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  12: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  13: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 13. Error: Gardner-Altman unpaired reverse (@test-gardner-altman-plots.R#25) 
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: test.data %>% dabest(Group, Measurement, idx = c("Group1", "Control1"), paired = FALSE) at testthat/test-gardner-altman-plots.R:25
  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: dabest(., Group, Measurement, idx = c("Group1", "Control1"), paired = FALSE)
  10: forcats::as_factor(data.out[[x_quoname]], all_groups)
  11: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  12: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  13: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 14. Error: Gardner-Altman paired (@test-gardner-altman-plots.R#41)  ---------
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: test.data %>% dabest(Group, Measurement, idx = c("Control1", "Group1"), paired = TRUE, 
         id.col = ID) at testthat/test-gardner-altman-plots.R:41
  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: dabest(., Group, Measurement, idx = c("Control1", "Group1"), paired = TRUE, id.col = ID)
  10: forcats::as_factor(data.out[[x_quoname]], all_groups)
  11: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  12: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  13: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  -- 15. Error: Gardner-Altman paired reverse (@test-gardner-altman-plots.R#58)  -
  1 components of `...` were not used.
  
  We detected these problematic arguments:
  * `..1`
  
  Did you misspecify an argument?
  1: test.data %>% dabest(Group, Measurement, idx = c("Group1", "Control1"), paired = TRUE, 
         id.col = ID) at testthat/test-gardner-altman-plots.R:58
  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: dabest(., Group, Measurement, idx = c("Group1", "Control1"), paired = TRUE, id.col = ID)
  10: forcats::as_factor(data.out[[x_quoname]], all_groups)
  11: (function (env = parent.frame()) 
     {
         if (.Call(ellipsis_dots_used, env)) {
             return(invisible())
         }
         proms <- dots(env)
         used <- vapply(proms, promise_forced, logical(1))
         unnused <- names(proms)[!used]
         stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
             dot_names = unnused, .subclass = "rlib_error_dots_unnused")
     })(environment())
  12: stop_dots(message = paste0(length(unnused), " components of `...` were not used."), 
         dot_names = unnused, .subclass = "rlib_error_dots_unnused")
  13: abort(message, .subclass = c(.subclass, "rlib_error_dots"), ...)
  
  == testthat results  ===========================================================
  OK: 1 SKIPPED: 0 WARNINGS: 0 FAILED: 15
  1. Error: Gardner-Altman custom aesthetics (@test-aesthetics.R#10) 
  2. Error: Cumming custom aesthetics (@test-aesthetics.R#124) 
  3. Error: Two-group unpaired mean diff reports accurately (@test-bootstrap.R#13) 
  4. Error: Two-group unpaired mean diff falls within 95 CI (@test-bootstrap.R#40) 
  5. Error: Two-group paired mean diff reports accurately (@test-bootstrap.R#65) 
  6. Error: Cumming two-groups unpaired (@test-cumming-plots.R#9) 
  7. Error: Cumming two-groups paired (@test-cumming-plots.R#28) 
  8. Error: Cumming multi two-groups unpaired (@test-cumming-plots.R#46) 
  9. Error: Cumming multi two-groups paired (@test-cumming-plots.R#66) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted