Running ‘testthat.R’ [7s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > testthat::test_check("rAmCharts")
  Loading required package: rAmCharts
  Important changes: constructors legend() and title() have been replaced by amLegend() and amTitle().
  For any bug report or feed back see https://github.com/datastorm-open/rAmCharts
  ── 1. Error: Formula (@test_amBoxplot.R#5)  ────────────────────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: testthat::expect_silent({
         (obj <- amBoxplot(count ~ spray, data = InsectSprays))
         amBoxplot(count ~ spray, data = InsectSprays, ylim = c(0, 50), xlab = "spray", 
             col = c("darkblue", "gray"))
         amBoxplot(count ~ spray, data = InsectSprays, ylim = c(0, 50), xlab = "spray", 
             horiz = TRUE)
         InsectSprays$id <- paste0("ID : ", 1:nrow(InsectSprays))
         amBoxplot(count ~ spray, data = InsectSprays, id = "id")
         amBoxplot(count ~ spray, data = InsectSprays, main = "amcharts")
     }) at testthat/test_amBoxplot.R:5
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: amBoxplot(count ~ spray, data = InsectSprays) at testthat/test_amBoxplot.R:7
  10: amBoxplot.formula(count ~ spray, data = InsectSprays)
  11: data[, list(.dtBoxplotStat(list(eval(parse(text = x)), id))), keyby = y]
  12: `[.data.table`(data, , list(.dtBoxplotStat(list(eval(parse(text = x)), id))), keyby = y)
  
  ── 2. Error: data.frame (@test_amBoxplot.R#26)  ────────────────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: testthat::expect_silent({
         don <- data.frame(a = 1:10, b = 1:5)
         amBoxplot(don, ylim = c(0, 15))
         amBoxplot(count ~ spray, data = InsectSprays, creditsPosition = "top-right")
     }) at testthat/test_amBoxplot.R:26
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: amBoxplot(don, ylim = c(0, 15)) at testthat/test_amBoxplot.R:28
  10: amBoxplot.data.frame(don, ylim = c(0, 15))
  11: data[, list(.dtBoxplotStat(list(value, id))), by = group]
  12: `[.data.table`(data, , list(.dtBoxplotStat(list(value, id))), by = group)
  
  ── 3. Error: matrix (@test_amBoxplot.R#36)  ────────────────────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: testthat::expect_silent({
         x <- matrix(nrow = 10, ncol = 5, rnorm(50))
         amBoxplot(x)
         colnames(x) <- LETTERS[1:5]
         amBoxplot(x)
         amBoxplot(x, use.cols = FALSE, col = c("blue", "red"))
         amBoxplot(x, export = TRUE, exportFormat = "SVG")
     }) at testthat/test_amBoxplot.R:36
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: amBoxplot(x) at testthat/test_amBoxplot.R:39
  10: amBoxplot.matrix(x)
  11: data[, list(.dtBoxplotStat(list(value, id))), by = group]
  12: `[.data.table`(data, , list(.dtBoxplotStat(list(value, id))), by = group)
  
  ── 4. Error: numeric vector (@test_amBoxplot.R#50)  ────────────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: testthat::expect_silent({
         amBoxplot(rnorm(100))
         amBoxplot(rnorm(100), zoom = TRUE)
     }) at testthat/test_amBoxplot.R:50
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: amBoxplot(rnorm(100)) at testthat/test_amBoxplot.R:51
  10: amBoxplot.default(rnorm(100))
  11: data[, list(.dtBoxplotStat(list(value, id))), by = "group"]
  12: `[.data.table`(data, , list(.dtBoxplotStat(list(value, id))), by = "group")
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 266 SKIPPED: 0 FAILED: 4
  1. Error: Formula (@test_amBoxplot.R#5) 
  2. Error: data.frame (@test_amBoxplot.R#26) 
  3. Error: matrix (@test_amBoxplot.R#36) 
  4. Error: numeric vector (@test_amBoxplot.R#50) 
  
  Error: testthat unit tests failed
  Execution halted