database diagnostics

DESCRIPTION

@@ -21,6 +21,7 @@ Suggests:
     DBI,
     gt,
     omock,
+    OmopSketch,
     testthat (>= 3.0.0),
     knitr,
     RPostgres,

NAMESPACE

@@ -4,6 +4,7 @@ export("%>%")
 export(codelistDiagnostics)
 export(cohortDiagnostics)
 export(cohortToPopulationDiagnostics)
+export(databaseDiagnostics)
 export(reportDiagnostics)
 export(shinyDiagnostics)
 importFrom(magrittr,"%>%")

R/databaseDiagnostics.R

@@ -0,0 +1,15 @@
+
+
+#' Database diagnostics
+#'
+#' @param cdm CDM reference
+#'
+#' @return
+#' @export
+#'
+#' @examples
+databaseDiagnostics <- function(cdm){
+
+OmopSketch::summariseOmopSnapshot(cdm)
+
+}

tests/testthat/test-databaseDiagnostics.R

@@ -0,0 +1,20 @@
+test_that("multiplication works", {
+  cdm_local <- omock::mockCdmReference() |>
+    omock::mockPerson(nPerson = 100) |>
+    omock::mockObservationPeriod() |>
+    omock::mockConditionOccurrence() |>
+    omock::mockDrugExposure() |>
+    omock::mockObservation() |>
+    omock::mockMeasurement() |>
+    omock::mockCohort(name = "my_cohort", numberCohorts = 2)
+
+  db <- DBI::dbConnect(duckdb::duckdb())
+  cdm <- CDMConnector::copyCdmTo(con = db, cdm = cdm_local,
+                                 schema ="main", overwrite = TRUE)
+
+  db_diag <- databaseDiagnostics(cdm)
+  expect_no_error(OmopSketch::tableOmopSnapshot(db_diag))
+
+  CDMConnector::cdmDisconnect(cdm = cdm)
+
+})