From c7cd1268e277147c6a056d50f4cb91d8116180be Mon Sep 17 00:00:00 2001 From: Gennadiy Anisimov Date: Tue, 2 Apr 2024 17:37:28 +0300 Subject: [PATCH] Handle missing server value in getTemporalData --- R/getTemporalData.r | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/R/getTemporalData.r b/R/getTemporalData.r index ca4f23bb..6bf418c2 100644 --- 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,