From 2d5f6a56b780efdb32dedf86396d4ac30075de74 Mon Sep 17 00:00:00 2001
From: Admin_mschuemi <Admin_mschuemi@its.jnj.com>
Date: Tue, 14 Nov 2023 01:09:28 -0500
Subject: [PATCH] (Hopefully temporary) workaround for
 https://github.com/tidyverse/vroom/issues/519:

---
 R/Export.R | 2 ++
 R/Viewer.R | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/R/Export.R b/R/Export.R
index c517e319..dcf3a888 100644
--- a/R/Export.R
+++ b/R/Export.R
@@ -220,6 +220,8 @@ exportToCsv <- function(outputFolder,
 
 writeToCsv <- function(data, fileName, append = FALSE) {
   colnames(data) <- SqlRender::camelCaseToSnakeCase(colnames(data))
+  # Workaround for issue https://github.com/tidyverse/vroom/issues/519:
+  readr::local_edition(1)
   readr::write_csv(x = data, file = fileName, append = append)
 }
 
diff --git a/R/Viewer.R b/R/Viewer.R
index 7a170a98..f0bff613 100644
--- a/R/Viewer.R
+++ b/R/Viewer.R
@@ -135,6 +135,8 @@ uploadExportedResults <- function(connectionDetails,
       cdm_source_abbreviation = as.character(.data$database_id)
     )
   databaseIdentifierFile <- tempfile(fileext = ".csv")
+  # Workaround for issue https://github.com/tidyverse/vroom/issues/519:
+  readr::local_edition(1)
   readr::write_csv(databaseIdentifier, databaseIdentifierFile)
   DatabaseConnector::insertTable(
     connection = connection,