Running ‘testthat.R’ [21s/23s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(srvyr)
  
  Attaching package: 'srvyr'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("srvyr")
  ── 1. Error: DB backed survey tests - MonetDBLite (@test_database.R#37)  ───────
  disconnected
  1: apistrat_db %>% as_survey_design(strata = stype, weights = pw) at testthat/test_database.R:37
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: as_survey_design(., strata = stype, weights = pw)
  10: as_survey_design.tbl_lazy(., strata = stype, weights = pw)
  ...
  13: collect.tbl_sql(query)
  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 = rsqlite_send_query(conn@ptr, statement), 
         conn = conn)
  20: initialize(value, ...)
  21: initialize(value, ...)
  22: rsqlite_send_query(conn@ptr, statement)
  
  ── 2. Error: Can get replicate weight surveys - MonetDBLite (@test_database.R#11
  disconnected
  1: copy_to(con, scd) at testthat/test_database.R:116
  2: copy_to.DBIConnection(con, scd)
  3: copy_to(dbplyr::src_dbi(dest), df = df, name = name, overwrite = overwrite, ...)
  4: copy_to.src_sql(dbplyr::src_dbi(dest), df = df, name = name, overwrite = overwrite, 
         ...)
  5: db_copy_to(dest$con, name, df, overwrite = overwrite, types = types, temporary = temporary, 
         unique_indexes = unique_indexes, indexes = indexes, analyze = analyze, ...)
  6: db_copy_to.DBIConnection(dest$con, name, df, overwrite = overwrite, types = types, 
         temporary = temporary, unique_indexes = unique_indexes, indexes = indexes, analyze = analyze, 
         ...)
  7: db_begin(con)
  8: db_begin.DBIConnection(con)
  9: dbBegin(con)
  10: dbBegin(con)
  ...
  13: dbExecute(conn, "BEGIN")
  14: dbSendStatement(conn, statement, ...)
  15: dbSendStatement(conn, statement, ...)
  16: dbSendQuery(conn, statement, ...)
  17: dbSendQuery(conn, statement, ...)
  18: .local(conn, statement, ...)
  19: new("SQLiteResult", sql = statement, ptr = rsqlite_send_query(conn@ptr, statement), 
         conn = conn)
  20: initialize(value, ...)
  21: initialize(value, ...)
  22: rsqlite_send_query(conn@ptr, statement)
  
  ── 3. Error: Can use as_survey (@test_database.R#137)  ─────────────────────────
  disconnected
  1: apistrat_db %>% as_survey(strata = stype, weights = pw) at testthat/test_database.R:137
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: as_survey(., strata = stype, weights = pw)
  10: as_survey.tbl_lazy(., strata = stype, weights = pw)
  ...
  15: collect.tbl_sql(query)
  16: db_collect(x$src$con, sql, n = n, warn_incomplete = warn_incomplete)
  17: db_collect.DBIConnection(x$src$con, sql, n = n, warn_incomplete = warn_incomplete)
  18: dbSendQuery(con, sql)
  19: dbSendQuery(con, sql)
  20: .local(conn, statement, ...)
  21: new("SQLiteResult", sql = statement, ptr = rsqlite_send_query(conn@ptr, statement), 
         conn = conn)
  22: initialize(value, ...)
  23: initialize(value, ...)
  24: rsqlite_send_query(conn@ptr, statement)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 111 SKIPPED: 0 FAILED: 3
  1. Error: DB backed survey tests - MonetDBLite (@test_database.R#37) 
  2. Error: Can get replicate weight surveys - MonetDBLite (@test_database.R#116) 
  3. Error: Can use as_survey (@test_database.R#137) 
  
  Error: testthat unit tests failed
  Execution halted