Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(paradox)
  > 
  > test_check("paradox")
  ── 1. Error: transpose works (@test_Design.R#4)  ───────────────────────────────
  not a function
  1: ParamSet$new(list(ParamFct$new("f", levels = c("a", "b")), ParamInt$new("i", lower = 1, 
         upper = 5))) at testthat/test_Design.R:4
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 2. Error: printer works (@test_Param.R#59)  ─────────────────────────────────
  not a function
  1: th_paramset_full() at testthat/test_Param.R:59
  2: ParamSet$new(params = list(th_param_int(), th_param_dbl(), th_param_fct(), th_param_lgl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:10
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 3. Error: simple active bindings work (@test_ParamSet.R#4)  ─────────────────
  not a function
  1: th_paramset_dbl1() at testthat/test_ParamSet.R:4
  2: ParamSet$new(params = list(th_param_dbl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:2
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 4. Error: ParamSet$subset (@test_ParamSet.R#40)  ────────────────────────────
  not a function
  1: th_paramset_full() at testthat/test_ParamSet.R:40
  2: ParamSet$new(params = list(th_param_int(), th_param_dbl(), th_param_fct(), th_param_lgl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:10
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 5. Error: ParamSet$add_param_set (@test_ParamSet.R#66)  ─────────────────────
  not a function
  1: ps1$add(ps2) at testthat/test_ParamSet.R:66
  2: p$clone(deep = TRUE)
  3: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  4: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 6. Error: ParamSet$check (@test_ParamSet.R#94)  ─────────────────────────────
  not a function
  1: th_paramset_numeric() at testthat/test_ParamSet.R:94
  2: ParamSet$new(params = list(th_param_int(), th_param_dbl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:27
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 7. Error: ParamSets cannot have duplicated ids (@test_ParamSet.R#118)  ──────
  not a function
  1: ParamSet$new(list(p1)) at testthat/test_ParamSet.R:118
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 8. Error: ParamSet$print (@test_ParamSet.R#128)  ────────────────────────────
  not a function
  1: th_paramset_numeric() at testthat/test_ParamSet.R:128
  2: ParamSet$new(params = list(th_param_int(), th_param_dbl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:27
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 9. Error: ParamSet does a deep copy of params on construction (@test_ParamSet
  not a function
  1: ParamSet$new(list(p)) at testthat/test_ParamSet.R:149
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 10. Error: ParamSet does a deep copy of param on add (@test_ParamSet.R#158)  
  not a function
  1: ParamSet$new(list())$add(p) at testthat/test_ParamSet.R:158
  2: ParamSet$new(list(p))
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 11. Error: ParamSet$clone can be deep (@test_ParamSet.R#168)  ───────────────
  not a function
  1: ParamSet$new(list(p1, p2)) at testthat/test_ParamSet.R:168
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 12. Error: ParamSet$is_bounded (@test_ParamSet.R#187)  ──────────────────────
  not a function
  1: ParamSet$new(list(ParamDbl$new("x", lower = 1, upper = 3))) at testthat/test_ParamSet.R:187
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 13. Error: ParamSet$add_param (@test_ParamSet.R#205)  ───────────────────────
  not a function
  1: ps$add(ParamDbl$new("x", lower = 1)) at testthat/test_ParamSet.R:205
  2: ParamSet$new(list(p))
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 14. Error: as.data.table (@test_ParamSet.R#218)  ────────────────────────────
  not a function
  1: th_paramset_full() at testthat/test_ParamSet.R:218
  2: ParamSet$new(params = list(th_param_int(), th_param_dbl(), th_param_fct(), th_param_lgl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:10
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 15. Error: ParamSet$default (@test_ParamSet.R#227)  ─────────────────────────
  not a function
  1: ParamSet$new(list(ParamDbl$new("x", lower = 1, upper = 3, default = 2), ParamInt$new("y", 
         lower = 1, upper = 3))) at testthat/test_ParamSet.R:227
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 16. Error: is_number / is_categ (@test_ParamSet.R#242)  ─────────────────────
  not a function
  1: expect_equal(th_paramset_full()$is_number, c(th_param_int = TRUE, th_param_dbl = TRUE, 
         th_param_fct = FALSE, th_param_lgl = FALSE)) at testthat/test_ParamSet.R:242
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: th_paramset_full()
  5: ParamSet$new(params = list(th_param_int(), th_param_dbl(), th_param_fct(), th_param_lgl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:10
  6: .subset2(public_bind_env, "initialize")(...)
  7: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  8: map(params, function(p) p$clone(deep = TRUE))
  9: lapply(.x, .f, ...)
  10: FUN(X[[i]], ...)
  11: p$clone(deep = TRUE)
  12: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  13: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 17. Error: ParamSet$ids (@test_ParamSet.R#249)  ─────────────────────────────
  not a function
  1: ParamSet$new(list(ParamDbl$new(id = "x", lower = 1, tags = c("t1")), ParamInt$new(id = "y", 
         lower = 1, upper = 2), ParamFct$new(id = "z", levels = letters[1:3], tags = c("t1")))) at testthat/test_ParamSet.R:249
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 18. Error: ParamSet$get_values (@test_ParamSet.R#261)  ──────────────────────
  not a function
  1: ParamSet$new(list(ParamDbl$new(id = "x", lower = 1, tags = c("t1")), ParamInt$new(id = "y", 
         lower = 1, upper = 2), ParamFct$new(id = "z", levels = letters[1:3], tags = c("t1")))) at testthat/test_ParamSet.R:261
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 19. Error: required tag (@test_ParamSet.R#278)  ─────────────────────────────
  not a function
  1: ParamSet$new(list(ParamDbl$new(id = "x", tags = c("required")), ParamInt$new(id = "y"))) at testthat/test_ParamSet.R:278
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 20. Error: ParamSet basic stuff works (@test_ParamSetCollection.R#4)  ───────
  not a function
  1: th_paramset_dbl1() at testthat/test_ParamSetCollection.R:4
  2: ParamSet$new(params = list(th_param_dbl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:2
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 21. Error: some operations are not allowed (@test_ParamSetCollection.R#82)  ─
  not a function
  1: th_paramset_dbl1() at testthat/test_ParamSetCollection.R:82
  2: ParamSet$new(params = list(th_param_dbl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:2
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 22. Error: deps (@test_ParamSetCollection.R#93)  ────────────────────────────
  not a function
  1: ParamSet$new(list(ParamFct$new("f", levels = c("a", "b")), ParamDbl$new("d"))) at testthat/test_ParamSetCollection.R:93
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 23. Error: values (@test_ParamSetCollection.R#126)  ─────────────────────────
  not a function
  1: ParamSet$new(list(ParamFct$new("f", levels = c("a", "b")), ParamDbl$new("d", lower = 1, 
         upper = 8))) at testthat/test_ParamSetCollection.R:126
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 24. Error: empty collections (@test_ParamSetCollection.R#174)  ──────────────
  not a function
  1: ParamSetCollection$new(list(ParamSet$new())) at testthat/test_ParamSetCollection.R:174
  2: .subset2(public_bind_env, "initialize")(...)
  3: duplicated(names(self$params))
  4: (function (v) 
     {
         sets = private$.sets
         names(sets) = map_chr(sets, "set_id")
         if (length(sets) == 0L) {
             return(named_list())
         }
         private$.params = named_list()
         ps_all = lapply(sets, function(s) s$clone(deep = TRUE)$params)
         ps_all = unlist(ps_all, recursive = FALSE)
         if (!length(ps_all)) 
             ps_all = named_list()
         imap(ps_all, function(x, n) x$id = n)
         ps_all
     })()
  5: lapply(sets, function(s) s$clone(deep = TRUE)$params)
  6: FUN(X[[i]], ...)
  7: s$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 25. Error: no problems if we name the list of sets (@test_ParamSetCollection.
  not a function
  1: ParamSet$new(list(ParamDbl$new("test1"))) at testthat/test_ParamSetCollection.R:183
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 26. Error: no warning in printer, see issue 208 (@test_ParamSetCollection.R#1
  not a function
  1: ParamSet$new(list(ParamDbl$new("test1"))) at testthat/test_ParamSetCollection.R:190
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 27. Error: collection reflects direct paramset$set_id change (@test_ParamSetC
  not a function
  1: ParamSet$new(list(ParamDbl$new("d"))) at testthat/test_ParamSetCollection.R:199
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 28. Error: collection allows state-change setting of paramvals, see issue 205
  not a function
  1: ParamSet$new(list(ParamDbl$new("d1"))) at testthat/test_ParamSetCollection.R:215
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 29. Error: set_id inference in values assignment works now (@test_ParamSetCol
  not a function
  1: ParamSet$new(list(ParamDbl$new("parama"))) at testthat/test_ParamSetCollection.R:233
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 30. Error: rep params work (@test_Param_rep.R#5)  ───────────────────────────
  not a function
  1: p$rep(2L) at testthat/test_Param_rep.R:5
  2: replicate(n, self$clone(), simplify = FALSE)
  3: sapply(integer(n), eval.parent(substitute(function(...) expr)), simplify = simplify)
  4: lapply(X = X, FUN = FUN, ...)
  5: FUN(X[[i]], ...)
  6: self$clone()
  7: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  8: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 31. Error: rep params deep copies (@test_Param_rep.R#26)  ───────────────────
  not a function
  1: p$rep(1L) at testthat/test_Param_rep.R:26
  2: replicate(n, self$clone(), simplify = FALSE)
  3: sapply(integer(n), eval.parent(substitute(function(...) expr)), simplify = simplify)
  4: lapply(X = X, FUN = FUN, ...)
  5: FUN(X[[i]], ...)
  6: self$clone()
  7: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  8: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 32. Error: basic example works (@test_deps.R#4)  ────────────────────────────
  not a function
  1: th_paramset_full() at testthat/test_deps.R:4
  2: ParamSet$new(params = list(th_param_int(), th_param_dbl(), th_param_fct(), th_param_lgl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:10
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 33. Error: nested deps work (@test_deps.R#37)  ──────────────────────────────
  not a function
  1: th_paramset_full() at testthat/test_deps.R:37
  2: ParamSet$new(params = list(th_param_int(), th_param_dbl(), th_param_fct(), th_param_lgl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:10
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 34. Error: adding 2 sets with deps works (@test_deps.R#58)  ─────────────────
  not a function
  1: ParamSet$new(list(ParamFct$new("x1", levels = c("a", "b")), ParamDbl$new("y1"))) at testthat/test_deps.R:58
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 35. Error: subsetting with deps works (@test_deps.R#83)  ────────────────────
  not a function
  1: ParamSet$new(list(ParamFct$new("a", levels = c("a", "b")), ParamFct$new("b", levels = c("a", 
         "b")), ParamFct$new("c", levels = c("a", "b")), ParamFct$new("d", levels = c("a", 
         "b")))) at testthat/test_deps.R:83
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 36. Error: cannot add a dep on yourself (@test_deps.R#100)  ─────────────────
  not a function
  1: ParamSet$new(list(ParamFct$new("x", levels = c("a")))) at testthat/test_deps.R:100
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 37. Error: we can also dep on integer (@test_deps.R#106)  ───────────────────
  not a function
  1: ParamSet$new(list(ParamInt$new("i", lower = 0, upper = 9), ParamDbl$new("d", lower = 0, 
         upper = 9))) at testthat/test_deps.R:106
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 38. Error: generate_design_random (@test_generate_design.R#4)  ──────────────
  not a function
  1: th_paramset_dbl1() at testthat/test_generate_design.R:4
  2: ParamSet$new(params = list(th_param_dbl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:2
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 39. Error: generate_design_grid (@test_generate_design.R#21)  ───────────────
  not a function
  1: th_paramset_dbl1() at testthat/test_generate_design.R:21
  2: ParamSet$new(params = list(th_param_dbl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:2
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 40. Error: generate_design_grid with different resolutions and egde cases (@t
  not a function
  1: ParamSet$new(list(ParamFct$new("f", levels = letters[1:2]))) at testthat/test_generate_design.R:44
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 41. Error: check generate_design_grid against concrete expectation (@test_gen
  not a function
  1: ParamSet$new(list(ParamDbl$new("x", lower = 1, upper = 3), ParamFct$new("y", levels = c("a", 
         "b")))) at testthat/test_generate_design.R:85
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 42. Error: generate_design_lhs (@test_generate_design.R#95)  ────────────────
  not a function
  1: th_paramset_dbl1() at testthat/test_generate_design.R:95
  2: ParamSet$new(params = list(th_param_dbl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:2
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 43. Error: generate_design_lhs does not work with deps (@test_generate_design
  not a function
  1: th_paramset_deps() at testthat/test_generate_design.R:112
  2: th_paramset_full() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:45
  3: ParamSet$new(params = list(th_param_int(), th_param_dbl(), th_param_fct(), th_param_lgl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:10
  4: .subset2(public_bind_env, "initialize")(...)
  5: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  6: map(params, function(p) p$clone(deep = TRUE))
  7: lapply(.x, .f, ...)
  8: FUN(X[[i]], ...)
  9: p$clone(deep = TRUE)
  10: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  11: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 44. Error: generate_design_random and grid works with deps (@test_generate_de
  not a function
  1: th_paramset_deps() at testthat/test_generate_design.R:119
  2: th_paramset_full() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:45
  3: ParamSet$new(params = list(th_param_int(), th_param_dbl(), th_param_fct(), th_param_lgl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:10
  4: .subset2(public_bind_env, "initialize")(...)
  5: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  6: map(params, function(p) p$clone(deep = TRUE))
  7: lapply(.x, .f, ...)
  8: FUN(X[[i]], ...)
  9: p$clone(deep = TRUE)
  10: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  11: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 45. Error: values (@test_param_vals.R#4)  ───────────────────────────────────
  not a function
  1: ParamSet$new(list(ParamDbl$new(id = "d", lower = 0, upper = 1), ParamInt$new(id = "i", 
         lower = 1, upper = 3), ParamFct$new(id = "f", levels = letters[1:3]))) at testthat/test_param_vals.R:4
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 46. Error: values calls assert (@test_param_vals.R#63)  ─────────────────────
  not a function
  1: ParamSet$new(list(ParamDbl$new(id = "d", lower = 0, upper = 1), ParamInt$new(id = "i", 
         lower = 1, upper = 3), ParamFct$new(id = "f", levels = letters[1:3]))) at testthat/test_param_vals.R:63
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 47. Error: required params are checked (@test_param_vals.R#73)  ─────────────
  not a function
  1: ParamSet$new(list(ParamDbl$new(id = "d", lower = 0, upper = 1, tags = "required"), 
         ParamInt$new(id = "i", lower = 1, upper = 3))) at testthat/test_param_vals.R:73
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 48. Error: 1d samplers: basic tests (@test_sampler.R#10)  ───────────────────
  not a function
  1: th_paramset_full() at testthat/test_sampler.R:10
  2: ParamSet$new(params = list(th_param_int(), th_param_dbl(), th_param_fct(), th_param_lgl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:10
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 49. Error: SamplerJointIndep (@test_sampler.R#44)  ──────────────────────────
  not a function
  1: ParamSet$new(list(p1, p2)) at testthat/test_sampler.R:44
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 50. Error: SamplerUnif (@test_sampler.R#62)  ────────────────────────────────
  not a function
  1: th_paramset_dbl1() at testthat/test_sampler.R:62
  2: ParamSet$new(params = list(th_param_dbl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:2
  3: .subset2(public_bind_env, "initialize")(...)
  4: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  5: map(params, function(p) p$clone(deep = TRUE))
  6: lapply(.x, .f, ...)
  7: FUN(X[[i]], ...)
  8: p$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 51. Error: SamplerUnif works with deps (@test_sampler.R#85)  ────────────────
  not a function
  1: th_paramset_deps() at testthat/test_sampler.R:85
  2: th_paramset_full() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:45
  3: ParamSet$new(params = list(th_param_int(), th_param_dbl(), th_param_fct(), th_param_lgl())) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/paradox.Rcheck/tests/testthat/helper_02_ParamSet.R:10
  4: .subset2(public_bind_env, "initialize")(...)
  5: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  6: map(params, function(p) p$clone(deep = TRUE))
  7: lapply(.x, .f, ...)
  8: FUN(X[[i]], ...)
  9: p$clone(deep = TRUE)
  10: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  11: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 52. Error: we had a bug where creating the joint sampler changed the ps-ref o
  not a function
  1: ParamSet$new(list(p1, p2)) at testthat/test_sampler.R:100
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 53. Error: trafo (@test_trafo.R#4)  ─────────────────────────────────────────
  not a function
  1: ParamSet$new(list(ParamDbl$new("x", lower = -3, upper = 3), ParamDbl$new("w1", lower = 7, 
         upper = 9), ParamDbl$new("w2", lower = 7, upper = 9), ParamFct$new("f", levels = c("a", 
         "b")))) at testthat/test_trafo.R:4
  2: .subset2(public_bind_env, "initialize")(...)
  3: set_names(map(params, function(p) p$clone(deep = TRUE)), ids)
  4: map(params, function(p) p$clone(deep = TRUE))
  5: lapply(.x, .f, ...)
  6: FUN(X[[i]], ...)
  7: p$clone(deep = TRUE)
  8: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  9: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 245 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 53 ]
  1. Error: transpose works (@test_Design.R#4) 
  2. Error: printer works (@test_Param.R#59) 
  3. Error: simple active bindings work (@test_ParamSet.R#4) 
  4. Error: ParamSet$subset (@test_ParamSet.R#40) 
  5. Error: ParamSet$add_param_set (@test_ParamSet.R#66) 
  6. Error: ParamSet$check (@test_ParamSet.R#94) 
  7. Error: ParamSets cannot have duplicated ids (@test_ParamSet.R#118) 
  8. Error: ParamSet$print (@test_ParamSet.R#128) 
  9. Error: ParamSet does a deep copy of params on construction (@test_ParamSet.R#149) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted