(Hopefully temporary) workaround for tidyverse/vroom#519:

OHDSI · Nov 14, 2023 · 2d5f6a5 · 2d5f6a5
1 parent 57ce129
commit 2d5f6a5
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git 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
@@ -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,