Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [286s/539s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > 
  > test_check("diseasystore")
  Loading required package: diseasystore
  #####
  
  Following drivers will be tested:
    SQLite
  
  #####
  [ FAIL 5 | WARN 1 | SKIP 0 | PASS 468 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-DiseasystoreGoogleCovid19.R:172:7'): DiseasystoreGoogleCovid19 can extend existing features ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `map2(.x, .y, .f, ..., .progress = .progress)`: i In index: 12.
  Caused by error:
  ! Invalid result set
  Backtrace:
       ▆
    1. ├─purrr::walk2(...) at test-DiseasystoreGoogleCovid19.R:168:5
    2. │ └─purrr::map2(.x, .y, .f, ..., .progress = .progress)
    3. │   └─purrr:::map2_("list", .x, .y, .f, ..., .progress = .progress)
    4. │     ├─purrr:::with_indexed_errors(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     ├─purrr:::call_with_cleanup(...)
    7. │     └─diseasystore (local) .f(.x[[i]], .y[[i]], ...)
    8. │       ├─base::sort(...) at test-DiseasystoreGoogleCovid19.R:172:7
    9. │       ├─dplyr::pull(...) at test-DiseasystoreGoogleCovid19.R:172:7
   10. │       ├─SCDB::digest_to_checksum(...) at test-DiseasystoreGoogleCovid19.R:172:7
   11. │       │ ├─as.character(dplyr::ensym(col)) %in% colnames(.data)
   12. │       │ └─base::colnames(.data)
   13. │       │   └─base::is.data.frame(x)
   14. │       ├─dplyr::collect(ds$get_feature(.x, start_date = start_date, end_date = end_date)) at test-DiseasystoreGoogleCovid19.R:172:7
   15. │       └─ds$get_feature(.x, start_date = start_date, end_date = end_date) at test-DiseasystoreGoogleCovid19.R:172:7
   16. │         └─private$determine_new_ranges(...)
   17. │           ├─dplyr::filter(...)
   18. │           ├─tidyr::unite(...)
   19. │           ├─dplyr::collect(...)
   20. │           ├─dplyr::tbl(...)
   21. │           ├─dplyr:::tbl.DBIConnection(...)
   22. │           │ ├─dplyr::tbl(...)
   23. │           │ └─dbplyr:::tbl.src_dbi(...)
   24. │           │   └─dbplyr::tbl_sql(c(subclass, "dbi"), src = src, from = from, ...)
   25. │           │     └─dbplyr:::as_from(from)
   26. │           │       └─dbplyr::is.sql(x)
   27. │           ├─SCDB::id(...)
   28. │           └─SCDB:::id.character(...)
   29. │             ├─SCDB::schema_exists(conn, db_schema)
   30. │             └─SCDB:::schema_exists.SQLiteConnection(conn, db_schema)
   31. │               ├─DBI::dbGetQuery(conn, query)
   32. │               └─DBI::dbGetQuery(conn, query)
   33. │                 └─DBI (local) .local(conn, statement, ...)
   34. │                   ├─DBI::dbFetch(rs, n = n, ...)
   35. │                   └─RSQLite::dbFetch(rs, n = n, ...)
   36. │                     └─RSQLite (local) .local(res, n, ...)
   37. │                       └─RSQLite:::result_fetch(res@ptr, n = n)
   38. └─base::.handleSimpleError(`<fn>`, "Invalid result set", base::quote(NULL))
   39.   └─purrr (local) h(simpleError(msg, call))
   40.     └─cli::cli_abort(...)
   41.       └─rlang::abort(...)
  ── Failure ('test-SCDB_messages.R:28:3'): SCDB gives too many messages ─────────
  `SCDB::get_tables(conn)` did not throw the expected warning.
  ── Failure ('test-SCDB_messages.R:35:3'): SCDB gives too many messages ─────────
  `SCDB::create_table(mtcars, conn, test_id)` did not throw the expected message.
  ── Failure ('test-SCDB_messages.R:39:3'): SCDB gives too many messages ─────────
  `SCDB::create_logs_if_missing(log_id, conn)` did not throw the expected message.
  ── Failure ('test-SCDB_messages.R:52:3'): SCDB gives too many messages ─────────
  Check on 'message' failed: Must comply to pattern 'It looks like you tried to incorrectly use'
  Backtrace:
      ▆
   1. └─checkmate::expect_character(message, pattern = "It looks like you tried to incorrectly use") at test-SCDB_messages.R:52:3
   2.   └─checkmate::makeExpectation(x, res, info, label)
  
  [ FAIL 5 | WARN 1 | SKIP 0 | PASS 468 ]
  Error: Test failures
  In addition: Warning messages:
  1: Closing open result set, pending rows 
  2: Closing open result set, pending rows 
  Execution halted