#load Libraries

library(SqlRender)
library(DatabaseConnector)
library(Achilles)

#Db Connection

path_to_driver <- "/Users/sudoshi/Achilles/"

connectionDetails <- createConnectionDetails(
  dbms = "sql server",
  server = "external-prod-hive-sql-server.database.windows.net",
  user = "ohdsi_user",
  password = "*******************",
  extraSettings = "Database=irsf-external-hive-sql-db",
  pathToDriver = path_to_driver
)

#Generate OHDSI Achilles analysis
results <- achilles(
  connectionDetails,
  cdmDatabaseSchema = "OMOP",
  resultsDatabaseSchema = "RESULTS",
  vocabDatabaseSchema = "OMOP",
  sourceName = "OMOP",
  createTable = TRUE,
  smallCellCount = 5,
  cdmVersion = "5.4",
  createIndices = TRUE,
  numThreads = 1,
  tempAchillesPrefix = "tmpach",
  dropScratchTables = TRUE,
  sqlOnly = FALSE,
  outputFolder = "output",
  verboseMode = TRUE,
  optimizeAtlasCache = FALSE,
  defaultAnalysesOnly = TRUE,
  updateGivenAnalysesOnly = FALSE,
  excludeAnalysisIds = FALSE,
  sqlDialect = "sql server"
)