Merge pull request #760 from ganisimov/fix_temporal_characterization

Fix failure on missing server value in getTemporalData
OHDSI · May 14, 2024 · 9e5c4df · 9e5c4df
2 parents 5fdd05c + c7cd126
commit 9e5c4df
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/R/getTemporalData.r b/R/getTemporalData.r
@@ -93,9 +93,13 @@ getTemporalData <- function(connectionDetails,
     analysisIdGiven <- FALSE
   }
 
-  if (typeof(connectionDetails$server) == "character")
-    dbName <- toupper(strsplit(connectionDetails$server,
-                               "/")[[1]][2]) else dbName <- toupper(strsplit(connectionDetails$server(), "/")[[1]][2])
+  if (typeof(connectionDetails$server) == "character") {
+    dbName <- toupper(strsplit(connectionDetails$server, "/")[[1]][2])
+  } else if (typeof(connectionDetails$server()) == "character") {
+    dbName <- toupper(strsplit(connectionDetails$server(), "/")[[1]][2])
+  } else {
+    dbName <- NA
+  }
 
   translatedSql <- SqlRender::loadRenderTranslateSql(sqlFilename = "temporal/achilles_temporal_data.sql",
     packageName = "Achilles", dbms = connectionDetails$dbms, db_name = dbName, cdm_schema = cdmDatabaseSchema,