From 928ad9d89b2832f54c8ecaf5329136b684bc3923 Mon Sep 17 00:00:00 2001
From: Jamie Gilbert <JGilber2@its.jnj.com>
Date: Fri, 4 Oct 2024 10:02:29 -0700
Subject: [PATCH] Update BulkLoad.R

---
 R/BulkLoad.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/BulkLoad.R b/R/BulkLoad.R
index c6a7f5b5..c448b50a 100644
--- 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]]