Update BulkLoad.R

OHDSI · Oct 4, 2024 · 928ad9d · 928ad9d
1 parent 9c000da
commit 928ad9d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/BulkLoad.R b/R/BulkLoad.R
@@ -308,7 +308,7 @@ bulkLoadPostgres <- function(connection, sqlTableName, sqlFieldNames, sqlDataTyp
       "getMetaData"
     )
     server <- rJava::.jcall(databaseMetaData, "Ljava/lang/String;", "getURL")
-    server <- strsplit(server, "//")[[2]]
+    server <- strsplit(server, "//")[[1]][2]
   }
 
   hostServerDb <- strsplit(server, "/")[[1]]