Running 'testthat.R' [48s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(DTSg)
  > 
  > test_check("DTSg")
  -- 1. Error: values are aggregated correctly  ----------------------------------
  not a function
  1: expect_identical(DTSg$new(DT1)$aggregate(byYmdH__, mean)$values(), data.table::data.table(date = seq(as.POSIXct("2000-10-29 01:00:00", 
         tz = "Europe/Vienna"), as.POSIXct("2000-10-29 03:30:00", tz = "Europe/Vienna"), 
         "1 hour"), col1 = c(2, 6, 10, 14), col2 = c(NA, 6, 10, 14), key = "date"))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1)$aggregate(byYmdH__, mean)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 2. Error: "..." passes on arguments correctly  ------------------------------
  not a function
  1: expect_identical(DTSg$new(DT1)$aggregate(byYmdH__, mean, na.rm = TRUE)$values()[["col2"]], 
         c(1, 6, 10, 14))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1)$aggregate(byYmdH__, mean, na.rm = TRUE)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 3. Error: "aggregated" field is set correctly  ------------------------------
  not a function
  1: expect_true(DTSg$new(DT1)$aggregate(byYmdH__, mean)$aggregated)
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1)$aggregate(byYmdH__, mean)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 4. Error: .n is correct (single column)  ------------------------------------
  not a function
  1: expect_identical(DTSg$new(DT1)$aggregate(byYmdH__, mean, cols = "col2", n = TRUE)$values()[[".n"]], 
         c(1L, 2L, 2L, 2L))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1)$aggregate(byYmdH__, mean, cols = "col2", n = TRUE)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 5. Error: .n is correct (multiple columns)  ---------------------------------
  not a function
  1: expect_identical(DTSg$new(DT1)$aggregate(byYmdH__, mean, n = TRUE)$values()[[".n"]], 
         rep(2L, 4L))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1)$aggregate(byYmdH__, mean, n = TRUE)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 6. Error: values are altered correctly  -------------------------------------
  not a function
  1: expect_identical(DTSg$new(DT1[-3L, ])$alter("2000-10-29 01:00:00", "2000-10-29 03:00:00", 
         "1 hour")$values(), data.table::data.table(date = seq(as.POSIXct("2000-10-29 01:00:00", 
         tz = "Europe/Vienna"), as.POSIXct("2000-10-29 03:00:00", tz = "Europe/Vienna"), 
         "1 hour"), col1 = c(1, NA, 9, 13), col2 = c(1, NA, 9, 13), col3 = c("A", NA, 
         "E", "G"), key = "date"))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1[-3L, ])$alter("2000-10-29 01:00:00", "2000-10-29 03:00:00", "1 hour")
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 7. Error: call to "rollback" is made  ---------------------------------------
  not a function
  1: expect_identical(DTSg$new(DT1[-3L, ])$alter("2000-01-31", "2000-07-01", "1 month")$values()[["date"]], 
         as.POSIXct(c("2000-01-31", "2000-02-29", "2000-03-31", "2000-04-30", "2000-05-31", 
             "2000-06-30"), tz = "Europe/Vienna"))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1[-3L, ])$alter("2000-01-31", "2000-07-01", "1 month")
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 8. Error: deep clone is created by default (@test_DTSg.R#106)  --------------
  not a function
  1: expect_identical({
         TS <- DTSg$new(DT1)
         TS$aggregate(byYmdH__, mean)
         TS$alter(by = "1 hour")
         TS$colapply(function(x, ...) {
             as.factor(x)
         })
         TS$merge(DT2)
         TS$rollapply(weighted.mean, na.rm = TRUE)
         TS
     }, TS)
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: TS$aggregate(byYmdH__, mean) at testthat/test_DTSg.R:106
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 9. Error: "fun" is applied correctly  ---------------------------------------
  not a function
  1: expect_identical(DTSg$new(DT1)$colapply(function(x, ...) {
         as.factor(x)
     }, cols = c("col1", "col2"))$cols("factor"), c("col1", "col2"))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1)$colapply(function(x, ...) {
         as.factor(x)
     }, cols = c("col1", "col2"))
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 10. Error: "..." passes on arguments correctly  -----------------------------
  not a function
  1: expect_identical(DTSg$new(DT1[-1L, ])$colapply(interpolateLinear, rollends = FALSE, 
         cols = "col2")$values()[["col2"]], c(NA, seq(5, 15, by = 2)))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1[-1L, ])$colapply(interpolateLinear, rollends = FALSE, cols = "col2")
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 11. Error: values are merged correctly  -------------------------------------
  not a function
  1: expect_identical(DTSg$new(DT1[, .(date, col1)])$merge(DT2)$values(), merge(DT1[, 
         .(date, col1)], DT2, by = "date"))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1[, .(date, col1)])$merge(DT2)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 12. Error: "..." passes on arguments correctly  -----------------------------
  not a function
  1: expect_identical(DTSg$new(DT1[, .(date, col1)])$merge(DT2, all = TRUE)$values(), 
         merge(DT1[, .(date, col1)], DT2, by = "date", all = TRUE))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1[, .(date, col1)])$merge(DT2, all = TRUE)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 13. Error: "fun" is applied correctly  --------------------------------------
  not a function
  1: expect_identical(DTSg$new(DT1)$rollapply(function(x, ...) {
         sum(x)
     }, before = 2L, after = 1L)$values()[["col1"]], c(NA, NA, 16, 24, 32, 40, 48, NA))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1)$rollapply(function(x, ...) {
         sum(x)
     }, before = 2L, after = 1L)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 14. Error: "..." passes on arguments correctly  -----------------------------
  not a function
  1: expect_identical(DTSg$new(DT1)$rollapply(mean, na.rm = TRUE, before = 2L, after = 1L)$values()[["col1"]], 
         c(2, 3, 4, 6, 8, 10, 12, 13))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1)$rollapply(mean, na.rm = TRUE, before = 2L, after = 1L)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 15. Error: window of size one returns identity  -----------------------------
  not a function
  1: expect_identical(DTSg$new(DT1)$rollapply(mean, na.rm = TRUE, before = 0L, after = 0L)$values()[["col1"]], 
         DT1[["col1"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1)$rollapply(mean, na.rm = TRUE, before = 0L, after = 0L)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 16. Error: "inverseDistance" weights are correct (power = one)  -------------
  not a function
  1: expect_identical(DTSg$new(DT1)$rollapply(weighted.mean, na.rm = TRUE, before = 2L, 
         after = 1L)$values()[["col1"]][3L], {
         weights <- 1/c(rev(seq_len(2) + 1), 1, seq_len(1) + 1)^1
         weights <- weights/sum(weights)
         weighted.mean(DT1[["col1"]][1:4], weights, na.rm = TRUE)
     })
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1)$rollapply(weighted.mean, na.rm = TRUE, before = 2L, after = 1L)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 17. Error: "inverseDistance" weights are correct (power = two)  -------------
  not a function
  1: expect_identical(DTSg$new(DT1)$rollapply(weighted.mean, na.rm = TRUE, before = 2L, 
         after = 1L, parameters = list(power = 2))$values()[["col1"]][3L], {
         weights <- 1/c(rev(seq_len(2) + 1), 1, seq_len(1) + 1)^2
         weights <- weights/sum(weights)
         weighted.mean(DT1[["col1"]][1:4], weights, na.rm = TRUE)
     })
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1)$rollapply(weighted.mean, na.rm = TRUE, before = 2L, after = 1L, parameters = list(power = 2))
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 18. Error: all/only global references are removed (DTSg) (@test_DTSg.R#562)  
  not a function
  1: expect_true({
         TS <- DTSg$new(flow)
         TScopy <<- TS$clone(deep = TRUE)
         TSref1 <<- TS
         TSref2 <<- TS
         TS$values(TRUE, TRUE)
         exists("TScopy", where = 1L) && !exists("TSref1", where = 1L) && !exists("TSref2", 
             where = 1L)
     })
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: TS$clone(deep = TRUE) at testthat/test_DTSg.R:562
  5: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  6: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 19. Error: "byFasttimeY_____" works as expected (UTC) (@test_funby.R#8)  ----
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(byFasttimeY_____, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value)), by = "year"][["value"]]) at testthat/test_funby.R:8
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(byFasttimeY_____, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 20. Error: "byFasttimeYQ____" works as expected (UTC) (@test_funby.R#19)  ---
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(byFasttimeYQ____, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value)), by = "quarter"][["value"]]) at testthat/test_funby.R:19
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(byFasttimeYQ____, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 21. Error: "byFasttimeYm____" works as expected (UTC) (@test_funby.R#30)  ---
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(byFasttimeYm____, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value)), by = "month"][["value"]]) at testthat/test_funby.R:30
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(byFasttimeYm____, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 22. Error: "byFasttimeYmd___" works as expected (UTC) (@test_funby.R#41)  ---
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(byFasttimeYmd___, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value)), by = "day"][["value"]]) at testthat/test_funby.R:41
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(byFasttimeYmd___, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 23. Error: "byFasttimeYmdH__" works as expected (UTC) (@test_funby.R#52)  ---
  not a function
  1: expect_equal(DTSg$new(UTCfractionalSecondData)$aggregate(byFasttimeYmdH__, sum)$values(TRUE)[["value"]], 
         UTCfractionalSecondData[, .(value = sum(value)), by = "hour"][["value"]]) at testthat/test_funby.R:52
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTCfractionalSecondData)$aggregate(byFasttimeYmdH__, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 24. Error: "byFasttimeYmdHM_" works as expected (UTC) (@test_funby.R#63)  ---
  not a function
  1: expect_equal(DTSg$new(UTCfractionalSecondData)$aggregate(byFasttimeYmdHM_, sum)$values(TRUE)[["value"]], 
         UTCfractionalSecondData[, .(value = sum(value)), by = "minute"][["value"]]) at testthat/test_funby.R:63
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTCfractionalSecondData)$aggregate(byFasttimeYmdHM_, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 25. Error: "byFasttimeYmdHMS" works as expected (UTC) (@test_funby.R#74)  ---
  not a function
  1: expect_equal(DTSg$new(UTCfractionalSecondData)$aggregate(byFasttimeYmdHMS, sum)$values(TRUE)[["value"]], 
         UTCfractionalSecondData[, .(value = sum(value)), by = "second"][["value"]]) at testthat/test_funby.R:74
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTCfractionalSecondData)$aggregate(byFasttimeYmdHMS, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 26. Error: "byFasttime______" works as expected (UTC) (@test_funby.R#85)  ---
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(byFasttime______, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value))][["value"]]) at testthat/test_funby.R:85
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(byFasttime______, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 27. Error: "byFasttime_Q____" works as expected (UTC) (@test_funby.R#96)  ---
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(byFasttime_Q____, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value)), keyby = "quarter"][["value"]]) at testthat/test_funby.R:96
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(byFasttime_Q____, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 28. Error: "byFasttime_m____" works as expected (UTC) (@test_funby.R#107)  --
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(byFasttime_m____, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value)), keyby = "month"][["value"]]) at testthat/test_funby.R:107
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(byFasttime_m____, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 29. Error: "byFasttime___H__" works as expected (UTC) (@test_funby.R#118)  --
  not a function
  1: expect_equal(DTSg$new(UTCfractionalSecondData)$aggregate(byFasttime___H__, sum)$values(TRUE)[["value"]], 
         UTCfractionalSecondData[, .(value = sum(value)), by = "hour"][["value"]]) at testthat/test_funby.R:118
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTCfractionalSecondData)$aggregate(byFasttime___H__, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 30. Error: "byFasttime____M_" works as expected (UTC) (@test_funby.R#129)  --
  not a function
  1: expect_equal(DTSg$new(UTCfractionalSecondData)$aggregate(byFasttime____M_, sum)$values(TRUE)[["value"]], 
         UTCfractionalSecondData[, .(value = sum(value)), by = "hourMinute"][["value"]]) at testthat/test_funby.R:129
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTCfractionalSecondData)$aggregate(byFasttime____M_, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 31. Error: "byFasttime_____S" works as expected (UTC) (@test_funby.R#140)  --
  not a function
  1: expect_equal(DTSg$new(UTCfractionalSecondData)$aggregate(byFasttime_____S, sum)$values(TRUE)[["value"]], 
         UTCfractionalSecondData[, .(value = sum(value)), by = "minuteSecond"][["value"]]) at testthat/test_funby.R:140
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTCfractionalSecondData)$aggregate(byFasttime_____S, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 32. Error: "byY_____" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(byY_____, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value)), by = "year"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(byY_____, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 33. Error: "byYQ____" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(byYQ____, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value)), by = "quarter"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(byYQ____, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 34. Error: "byYm____" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(byYm____, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value)), by = "month"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(byYm____, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 35. Error: "byYmd___" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(byYmd___, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value)), by = "day"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(byYmd___, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 36. Error: "byYmdH__" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTCfractionalSecondData)$aggregate(byYmdH__, sum)$values(TRUE)[["value"]], 
         UTCfractionalSecondData[, .(value = sum(value)), by = "hour"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTCfractionalSecondData)$aggregate(byYmdH__, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 37. Error: "byYmdHM_" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTCfractionalSecondData)$aggregate(byYmdHM_, sum)$values(TRUE)[["value"]], 
         UTCfractionalSecondData[, .(value = sum(value)), by = "minute"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTCfractionalSecondData)$aggregate(byYmdHM_, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 38. Error: "byYmdHMS" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTCfractionalSecondData)$aggregate(byYmdHMS, sum)$values(TRUE)[["value"]], 
         UTCfractionalSecondData[, .(value = sum(value)), by = "second"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTCfractionalSecondData)$aggregate(byYmdHMS, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 39. Error: "by______" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(by______, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value))][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(by______, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 40. Error: "by_Q____" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(by_Q____, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value)), keyby = "quarter"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(by_Q____, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 41. Error: "by_m____" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTChourlyData)$aggregate(by_m____, sum)$values(TRUE)[["value"]], 
         UTChourlyData[, .(value = sum(value)), keyby = "month"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTChourlyData)$aggregate(by_m____, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 42. Error: "by___H__" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTCfractionalSecondData)$aggregate(by___H__, sum)$values(TRUE)[["value"]], 
         UTCfractionalSecondData[, .(value = sum(value)), by = "hour"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTCfractionalSecondData)$aggregate(by___H__, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 43. Error: "by____M_" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTCfractionalSecondData)$aggregate(by____M_, sum)$values(TRUE)[["value"]], 
         UTCfractionalSecondData[, .(value = sum(value)), by = "hourMinute"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTCfractionalSecondData)$aggregate(by____M_, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 44. Error: "by_____S" works as expected (UTC)  ------------------------------
  not a function
  1: expect_equal(DTSg$new(UTCfractionalSecondData)$aggregate(by_____S, sum)$values(TRUE)[["value"]], 
         UTCfractionalSecondData[, .(value = sum(value)), by = "minuteSecond"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(UTCfractionalSecondData)$aggregate(by_____S, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 45. Error: "byY_____" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CEThourlyData)$aggregate(byY_____, sum, ignoreDST = TRUE)$values(TRUE)[["value"]], 
         CEThourlyData[, .(value = sum(value)), by = "year"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CEThourlyData)$aggregate(byY_____, sum, ignoreDST = TRUE)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 46. Error: "byYQ____" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CEThourlyData)$aggregate(byYQ____, sum, ignoreDST = TRUE)$values(TRUE)[["value"]], 
         CEThourlyData[, .(value = sum(value)), by = "quarter"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CEThourlyData)$aggregate(byYQ____, sum, ignoreDST = TRUE)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 47. Error: "byYm____" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CEThourlyData)$aggregate(byYm____, sum, ignoreDST = TRUE)$values(TRUE)[["value"]], 
         CEThourlyData[, .(value = sum(value)), by = "month"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CEThourlyData)$aggregate(byYm____, sum, ignoreDST = TRUE)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 48. Error: "byYmd___" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CEThourlyData)$aggregate(byYmd___, sum, ignoreDST = TRUE)$values(TRUE)[["value"]], 
         CEThourlyData[, .(value = sum(value)), by = "day"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CEThourlyData)$aggregate(byYmd___, sum, ignoreDST = TRUE)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 49. Error: "byYmdH__" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CETfractionalSecondData1)$aggregate(byYmdH__, sum)$values(TRUE)[["value"]], 
         CETfractionalSecondData1[, .(value = sum(value)), by = "hour"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CETfractionalSecondData1)$aggregate(byYmdH__, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 50. Error: "byYmdHM_" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CETfractionalSecondData1)$aggregate(byYmdHM_, sum)$values(TRUE)[["value"]], 
         CETfractionalSecondData1[, .(value = sum(value)), by = "minute"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CETfractionalSecondData1)$aggregate(byYmdHM_, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 51. Error: "byYmdHMS" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CETfractionalSecondData1)$aggregate(byYmdHMS, sum)$values(TRUE)[["value"]], 
         CETfractionalSecondData1[, .(value = sum(value)), by = "second"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CETfractionalSecondData1)$aggregate(byYmdHMS, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 52. Error: "by______" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CEThourlyData)$aggregate(by______, sum)$values(TRUE)[["value"]], 
         CEThourlyData[, .(value = sum(value))][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CEThourlyData)$aggregate(by______, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 53. Error: "by_Q____" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CEThourlyData)$aggregate(by_Q____, sum, ignoreDST = TRUE)$values(TRUE)[["value"]], 
         CEThourlyData[, .(value = sum(value)), keyby = "quarter"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CEThourlyData)$aggregate(by_Q____, sum, ignoreDST = TRUE)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 54. Error: "by_m____" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CEThourlyData)$aggregate(by_m____, sum, ignoreDST = TRUE)$values(TRUE)[["value"]], 
         CEThourlyData[, .(value = sum(value)), keyby = "month"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CEThourlyData)$aggregate(by_m____, sum, ignoreDST = TRUE)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 55. Error: "by___H__" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CETfractionalSecondData1)$aggregate(by___H__, sum, ignoreDST = TRUE)$values(TRUE)[["value"]], 
         CETfractionalSecondData1[, .(value = sum(value)), by = "hour"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CETfractionalSecondData1)$aggregate(by___H__, sum, ignoreDST = TRUE)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 56. Error: "by____M_" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CETfractionalSecondData1)$aggregate(by____M_, sum)$values(TRUE)[["value"]], 
         CETfractionalSecondData1[, .(value = sum(value)), by = "hourMinute"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CETfractionalSecondData1)$aggregate(by____M_, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 57. Error: "by_____S" works as expected (CET1)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CETfractionalSecondData1)$aggregate(by_____S, sum)$values(TRUE)[["value"]], 
         CETfractionalSecondData1[, .(value = sum(value)), by = "minuteSecond"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CETfractionalSecondData1)$aggregate(by_____S, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 58. Error: "byYmdH__" works as expected (CET2)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CETfractionalSecondData2)$aggregate(byYmdH__, sum)$values(TRUE)[["value"]], 
         CETfractionalSecondData2[, .(value = sum(value)), by = "hour"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CETfractionalSecondData2)$aggregate(byYmdH__, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 59. Error: "byYmdHM_" works as expected (CET2)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CETfractionalSecondData2)$aggregate(byYmdHM_, sum)$values(TRUE)[["value"]], 
         CETfractionalSecondData2[, .(value = sum(value)), by = "minute"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CETfractionalSecondData2)$aggregate(byYmdHM_, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 60. Error: "byYmdHMS" works as expected (CET2)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CETfractionalSecondData2)$aggregate(byYmdHMS, sum)$values(TRUE)[["value"]], 
         CETfractionalSecondData2[, .(value = sum(value)), by = "second"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CETfractionalSecondData2)$aggregate(byYmdHMS, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 61. Error: "by___H__" works as expected (CET2)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CETfractionalSecondData2)$aggregate(by___H__, sum, ignoreDST = TRUE)$values(TRUE)[["value"]], 
         CETfractionalSecondData2[, .(value = sum(value)), by = "hour"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CETfractionalSecondData2)$aggregate(by___H__, sum, ignoreDST = TRUE)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 62. Error: "by____M_" works as expected (CET2)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CETfractionalSecondData2)$aggregate(by____M_, sum)$values(TRUE)[["value"]], 
         CETfractionalSecondData2[, .(value = sum(value)), by = "hourMinute"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CETfractionalSecondData2)$aggregate(by____M_, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 63. Error: "by_____S" works as expected (CET2)  -----------------------------
  not a function
  1: expect_equal(DTSg$new(CETfractionalSecondData2)$aggregate(by_____S, sum)$values(TRUE)[["value"]], 
         CETfractionalSecondData2[, .(value = sum(value)), by = "minuteSecond"][["value"]])
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(CETfractionalSecondData2)$aggregate(by_____S, sum)
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  -- 64. Error: "interpolateLinear" works correctly  -----------------------------
  not a function
  1: expect_identical(DTSg$new(DT1)$colapply(interpolateLinear, cols = "col2")$values()[["col2"]], 
         seq(1, 15, by = 2))
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: DTSg$new(DT1)$colapply(interpolateLinear, cols = "col2")
  5: self$clone(deep = TRUE)
  6: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  7: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  == testthat results  ===========================================================
  [ OK: 74 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 64 ]
  1. Error: values are aggregated correctly 
  2. Error: "..." passes on arguments correctly 
  3. Error: "aggregated" field is set correctly 
  4. Error: .n is correct (single column) 
  5. Error: .n is correct (multiple columns) 
  6. Error: values are altered correctly 
  7. Error: call to "rollback" is made 
  8. Error: deep clone is created by default (@test_DTSg.R#106) 
  9. Error: "fun" is applied correctly 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted