update test

Author: ginberg

man-roxygen/DatabaseIds.R

@@ -3,4 +3,4 @@
 #'                              of the results data model.
 #' @param databaseId            The databaseId to retrieve the results for. This is a 
 #'                              character field values from the `databaseId` field of the `database` table 
-#'                              of the results data model.                    
+#'                              of the results data model.          

tests/testthat/test-runTimeSeries.R

@@ -96,7 +96,7 @@ for (nm in names(testServers)) {
 }
 
 test_that("Testing cohort time series execution, incremental = FALSE", {
-  testServer <- "duckdb"
+  testServer <- "sqlite"
   skip_if_not(testServer %in% names(testServers))
   server <- testServers[[testServer]]
   con <- DatabaseConnector::connect(server$connectionDetails)
@@ -230,7 +230,7 @@ test_that("Testing cohort time series execution, incremental = FALSE", {
 })
 
 test_that("Testing cohort time series execution, incremental = TRUE", {
-  testServer <- "duckdb"
+  testServer <- "sqlite"
   skip_if_not(testServer %in% names(testServers))
   server <- testServers[[testServer]]
   con <- DatabaseConnector::connect(server$connectionDetails)
@@ -407,7 +407,7 @@ test_that("Testing cohort time series execution, incremental = TRUE", {
 })
 
 test_that("Testing Data source time series execution, incremental = FALSE ", {
-  testServer <- "duckdb"
+  testServer <- "sqlite"
   skip_if_not(testServer %in% names(testServers))
   server <- testServers[[testServer]]
   con <- DatabaseConnector::connect(server$connectionDetails)
@@ -470,7 +470,7 @@ test_that("Testing Data source time series execution, incremental = FALSE ", {
 })
 
 test_that("Testing Data source time series execution, incremental = TRUE ", {
-  testServer <- "duckdb"
+  testServer <- "sqlite"
   skip_if_not(testServer %in% names(testServers))
   server <- testServers[[testServer]]
   con <- DatabaseConnector::connect(server$connectionDetails)