library(DatabaseConnector)
library(DataQualityDashboard)

connectionDetails <- createConnectionDetails(
  dbms = "postgresql",
  server = "target-omop/postgres",
  user = "postgres",
  password = "postgres",
  port = 5432
)

cdmDatabaseSchema <- "public"
resultsDatabaseSchema <- "public"
cdmSourceName <- "Medikal OMOP Database"
numThreads <- 1
sqlOnly <- FALSE
outputFolder <- "/reports"
outputFile <- "dqd_results.json"
verboseMode <- TRUE
writeToTable <- FALSE

print("Starting OHDSI Data Quality Dashboard Profiling...")

DataQualityDashboard::executeDqChecks(
  connectionDetails = connectionDetails, 
  cdmDatabaseSchema = cdmDatabaseSchema, 
  resultsDatabaseSchema = resultsDatabaseSchema, 
  cdmSourceName = cdmSourceName, 
  cdmVersion = "5.4",
  numThreads = numThreads, 
  sqlOnly = sqlOnly, 
  outputFolder = outputFolder, 
  outputFile = outputFile, 
  verboseMode = verboseMode, 
  writeToTable = writeToTable
)

print("Data Quality Dashboard Profiling Completed Successfully!")