Running 'test_functions.r' [170s]
  Running 'testthat.r' [69s]
Running the tests in 'tests/test_functions.r' failed.
Complete output:
  > # test control -----------------------------------------------------------------
  > test_control <- function(fun, incl = 1:4, ...) {
  +   args <- list(...)
  + 
  +   if (1 %in% incl) {
  +     expect_error(
  +       do.call(fun, c(args, control = 1.5)),
  +       "Batch number must be object of type integer.\nYou provided a non-integer numeric value."
  +     )
  +   }
  + 
  +   fun_tmp <- function(value) {
  +     expect_error(
  +       do.call(fun, c(args, control = value)),
  +       "Error: Batch number must be object of type integer.\nYou provided a non-integer value."
  +     )
  +   }
  + 
  +   if (2 %in% incl) fun_tmp(value = "A")
  +   if (3 %in% incl) fun_tmp(value = TRUE)
  +   if (4 %in% incl) fun_tmp(value = sum)
  + 
  +   if (5 %in% incl) {
  +     expect_error(
  +       do.call(fun, c(args, control = list(1:5))),
  +       "'control' must be object of length 1.\nYou provided an object of length 5."
  +     )
  +   }
  + 
  +   fun_tmp <- function(value) {
  +     expect_error(
  +       do.call(fun, c(args, control = value)),
  +       "no applicable method"
  +     )
  +   }
  + 
  +   if (6 %in% incl) fun_tmp(value = "A")
  +   if (7 %in% incl) fun_tmp(value = TRUE)
  +   if (8 %in% incl) fun_tmp(value = sum)
  + }
  > 
  > # test object ------------------------------------------------------------------
  > test_object <- function(fun, incl = 1:4, ...) {
  +   args <- list(...)
  + 
  +   if (1 %in% incl) {
  +     expect_error(
  +       do.call(fun, c(args, object = 1.5)),
  +       "Batch number must be object of type integer.\nYou provided a non-integer numeric value."
  +     )
  +   }
  + 
  +   fun_tmp <- function(value) {
  +     expect_error(
  +       do.call(fun, c(args, object = value)),
  +       "Error: Batch number must be object of type integer.\nYou provided a non-integer value."
  +     )
  +   }
  + 
  +   if (2 %in% incl) fun_tmp(value = "A")
  +   if (3 %in% incl) fun_tmp(value = TRUE)
  +   if (4 %in% incl) fun_tmp(value = sum)
  + 
  +   if (5 %in% incl) {
  +     expect_error(
  +       do.call(fun, c(args, object = list(1:5))),
  +       "'object' must be object of length 1.\nYou provided an object of length 5."
  +     )
  +   }
  + 
  +   fun_tmp <- function(value) {
  +     expect_error(
  +       do.call(fun, c(args, object = value)),
  +       "no applicable method"
  +     )
  +   }
  + 
  +   if (6 %in% incl) fun_tmp(value = "A")
  +   if (7 %in% incl) fun_tmp(value = TRUE)
  +   if (8 %in% incl) fun_tmp(value = sum)
  + }
  > 
  > # test keyword -----------------------------------------------------------------
  > test_keyword <- function(fun, incl = 1:3, ...) {
  +   args <- list(...)
  + 
  +   fun_tmp <- function(value, var_type) {
  +     expect_error(
  +       do.call(fun, c(args, keyword = value)),
  +       paste0("'keyword' must be object of type character.\nYou provided an object of type ", var_type, ".")
  +     )
  +   }
  + 
  +   if (1 %in% incl) fun_tmp(value = 1, var_type = "double")
  +   if (2 %in% incl) fun_tmp(value = TRUE, var_type = "logical")
  +   if (3 %in% incl) fun_tmp(value = sum, var_type = "builtin")
  + 
  +   fun_tmp <- function(value, var_type) {
  +     expect_error(
  +       do.call(fun, c(args, keyword = value)),
  +       "no applicable method"
  +     )
  +   }
  + 
  +   if (4 %in% incl) fun_tmp(value = 1)
  +   if (5 %in% incl) fun_tmp(value = TRUE)
  +   if (6 %in% incl) fun_tmp(value = sum)
  + }
  > 
  > # test ci ----------------------------------------------------------------------
  > test_ci <- function(fun, ...) {
  +   args <- list(...)
  + 
  +   fun_tmp <- function(value, var_type) {
  +     expect_error(
  +       do.call(fun, c(args, ci = value)),
  +       paste0("'ci' must be object of type double.\nYou provided an object of type ", var_type, ".")
  +     )
  +   }
  + 
  +   purrr::map2(list("A", TRUE, sum), c("character", "logical", "builtin"), fun_tmp)
  + 
  +   expect_error(
  +     do.call(fun, c(args, ci = list(c(1:3 / 10)))),
  +     "'ci' must be object of length 1.\nYou provided an object of length 3."
  +   )
  + 
  +   fun_tmp <- function(value) {
  +     expect_error(
  +       do.call(fun, c(args, ci = value)),
  +       paste0("'ci' must be greater than 0 and less than 1.\nYou provided ", value, ".")
  +     )
  +   }
  + 
  +   purrr::map(list(0, 1), fun_tmp)
  + }
  > 
  > # test locations ---------------------------------------------------------------
  > test_locations <- function(fun, incl = FALSE, ...) {
  +   args <- list(...)
  + 
  +   fun_tmp <- function(value, var_type) {
  +     expect_error(
  +       do.call(fun, c(args, locations = value)),
  +       paste0("'locations' must be object of type character.\nYou provided an object of type ", var_type, ".")
  +     )
  +   }
  + 
  +   purrr::map2(list(1, TRUE, sum), c("double", "logical", "builtin"), fun_tmp)
  + 
  +   if (incl) {
  +     expect_error(
  +       do.call(fun, c(args, locations = list(letters[1:5]))),
  +       "'locations' must be object of length 1.\nYou provided an object of length 5."
  +     )
  +   }
  + }
  > 
  > # test train -------------------------------------------------------------------
  > test_train <- function(fun, ...) {
  +   args <- list(...)
  + 
  +   fun_tmp <- function(value, var_type) {
  +     expect_error(
  +       do.call(fun, c(args, train_win = value)),
  +       paste0("'train_win' must be object of type numeric.\nYou provided an object of type ", var_type, ".")
  +     )
  +     expect_error(
  +       do.call(fun, c(args, train_break = value)),
  +       paste0("'train_break' must be object of type numeric.\nYou provided an object of type ", var_type, ".")
  +     )
  +   }
  + 
  +   purrr::map2(list("A", TRUE, sum), c("character", "logical", "builtin"), fun_tmp)
  + 
  +   expect_error(
  +     do.call(fun, c(args, train_win = list(1:5))),
  +     "'train_win' must be object of length 1.\nYou provided an object of length 5."
  +   )
  +   expect_error(
  +     do.call(fun, c(args, train_break = list(1:5))),
  +     "'train_break' must be object of length 1.\nYou provided an object of length 5."
  +   )
  + }
  > 
  > proc.time()
     user  system elapsed 
     0.17    0.04    0.20