Handle missing server value in getTemporalData

OHDSI · Apr 2, 2024 · c7cd126 · c7cd126
1 parent 5fdd05c
commit c7cd126
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,