Running ‘testthat.R’ [34s/46s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > Sys.setenv("R_TESTS" = "")
  > 
  > library(testthat)
  > library(cytominer)
  
  Attaching package: 'cytominer'
  
  The following object is masked from 'package:stats':
  
      aggregate
  
  The following object is masked from 'package:base':
  
      transform
  
  > 
  > test_check("cytominer")
  ── 1. Error: `aggregate` aggregates data (@test-aggregate.R#15)  ───────────────
  near "(": syntax error
  1: expect_equal(aggregate(population = data, variables = c("x", "y"), strata = c("g"), 
         operation = "median") %>% dplyr::collect(), data %>% dplyr::group_by(g) %>% dplyr::summarise_at(.funs = dplyr::funs(median), 
         .vars = c("x", "y"))) at testthat/test-aggregate.R:15
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: aggregate(population = data, variables = c("x", "y"), strata = c("g"), operation = "median") %>% 
         dplyr::collect()
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  ...
  13: collect.tbl_sql(.)
  14: db_collect(x$src$con, sql, n = n, warn_incomplete = warn_incomplete)
  15: db_collect.DBIConnection(x$src$con, sql, n = n, warn_incomplete = warn_incomplete)
  16: dbSendQuery(con, sql)
  17: dbSendQuery(con, sql)
  18: .local(conn, statement, ...)
  19: new("SQLiteResult", sql = statement, ptr = result_create(conn@ptr, statement), conn = conn, 
         bigint = conn@bigint)
  20: initialize(value, ...)
  21: initialize(value, ...)
  22: result_create(conn@ptr, statement)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 22 SKIPPED: 0 WARNINGS: 19 FAILED: 1
  1. Error: `aggregate` aggregates data (@test-aggregate.R#15) 
  
  Error: testthat unit tests failed
  Execution halted