R/TestAchillesViewResultsCode.R

In hxia/Achilles4Impala: Creates descriptive statistics summary for an entire OMOP CDM instance.

#Requires that Achilles has been run first

testAchillesViestResultsCode <- function(){
  #Test on SQL Server: 
  setwd("c:/temp")
  connectionDetailsSqlServer <- createConnectionDetails(dbms="sql server", server="RNDUSRDHIT09.jnj.com")
  fetchAchillesHeelResults(connectionDetailsSqlServer, resultsDatabase="CDM_TRUVEN_CCAE_6k")
  fetchAchillesAnalysisResults(connectionDetailsSqlServer, resultsDatabase = "CDM_TRUVEN_CCAE_6k", analysisId = 106)
  
  
  pw <- ""
  
  ### Test Achilles heel part ###
  
  #Test on SQL Server
  setwd("c:/temp")
  connectionDetails <- createConnectionDetails(dbms="sql server", server="RNDUSRDHIT07.jnj.com")
  fetchAchillesHeelResults(connectionDetails,  resultsDatabase = "scratch")

  #Test on PostgreSQL
  setwd("c:/temp")
  connectionDetails <- createConnectionDetails(dbms="postgresql", server="localhost/ohdsi", user="postgres",password=pw)
  fetchAchillesHeelResults(connectionDetails, resultsDatabase = "scratch")

  

  #Test on Oracle 
  setwd("c:/temp")
  connectionDetails <- createConnectionDetails(dbms="oracle", server="xe", user="system",password="OHDSI2")
  fetchAchillesHeelResults(connectionDetails, resultsDatabase = "scratch")

  
  ### Test Achilles analysis results view part ###
  #Test on SQL Server
  setwd("c:/temp")
  connectionDetails <- createConnectionDetails(dbms="sql server", server="RNDUSRDHIT07.jnj.com")
  fetchAchillesAnalysisResults(connectionDetails,  resultsDatabase = "scratch", analysisId = 106)
  
  #Test on PostgreSQL
  setwd("c:/temp")
  connectionDetails <- createConnectionDetails(dbms="postgresql", server="localhost/ohdsi", user="postgres",password=pw)
  fetchAchillesAnalysisResults(connectionDetails, resultsDatabase = "scratch", analysisId = 106)
  
  

  #Test on Oracle
  setwd("c:/temp")
  connectionDetails <- createConnectionDetails(dbms="oracle", server="xe", user="system",password="OHDSI2")
  fetchAchillesAnalysisResults(connectionDetails, resultsDatabase = "scratch", analysisId = 106)
  
  
  connectionDetails <- createConnectionDetails(dbms="oracle", server="xe", user="system",password=pw)
  for (analysisId in analysesDetails$ANALYSIS_ID){
    results <- fetchAchillesAnalysisResults(connectionDetails, resultsDatabase = "scratch", analysisId = analysisId)
  }
}