Apparently also need workaround for read_csv

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

Hide file tree

Showing 5 changed files with 10 additions and 0 deletions.
diff --git a/R/Export.R b/R/Export.R
@@ -248,6 +248,8 @@ enforceMinCellValue <- function(data, fieldName, minValues, silent = FALSE) {
 }
 
 createEmptyResult <- function(tableName) {
+  # Workaround for issue https://github.com/tidyverse/vroom/issues/519:
+  readr::local_edition(1)
   columns <- readr::read_csv(
     file = system.file("csv", "resultsDataModelSpecification.csv", package = "CohortMethod"),
     show_col_types = FALSE) %>%

diff --git a/R/ResultsDataModel.R b/R/ResultsDataModel.R
@@ -23,6 +23,8 @@
 #' @export
 getResultsDataModelSpecifications <- function() {
   pathToCsv <- system.file("csv", "resultsDataModelSpecification.csv", package = utils::packageName())
+  # Workaround for issue https://github.com/tidyverse/vroom/issues/519:
+  readr::local_edition(1)
   resultsDataModelSpecifications <- readr::read_csv(file = pathToCsv, col_types = readr::cols())
   colnames(resultsDataModelSpecifications) <- SqlRender::snakeCaseToCamelCase(colnames(resultsDataModelSpecifications))
   return(resultsDataModelSpecifications)

diff --git a/R/Table1.R b/R/Table1.R
@@ -35,6 +35,8 @@ getDefaultCmTable1Specifications <- function() {
     analysisId = readr::col_integer(),
     covariateIds = readr::col_character()
   )
+  # Workaround for issue https://github.com/tidyverse/vroom/issues/519:
+  readr::local_edition(1)
   specifications <- readr::read_csv(fileName, col_types = colTypes)
   return(specifications)
 }

diff --git a/R/Viewer.R b/R/Viewer.R
@@ -100,6 +100,8 @@ uploadExportedResults <- function(connectionDetails,
     })
   })
   rdmsFile <- system.file("csv", "resultsDataModelSpecification.csv", package = "CohortMethod")
+  # Workaround for issue https://github.com/tidyverse/vroom/issues/519:
+  readr::local_edition(1)
   specification <- readr::read_csv(file = rdmsFile, show_col_types = FALSE) %>%
     SqlRender::snakeCaseToCamelCaseNames()
 

diff --git a/tests/testthat/test-eunomia.R b/tests/testthat/test-eunomia.R
@@ -210,6 +210,8 @@ test_that("Multiple analyses", {
   cohortMethodResultFile <- file.path(outputFolder, "export", "cm_result.csv")
   expect_true(file.exists(cohortMethodResultFile))
 
+  # Workaround for issue https://github.com/tidyverse/vroom/issues/519:
+  readr::local_edition(1)
   diagnosticsSummary <- readr::read_csv(file.path(outputFolder, "export", "cm_diagnostics_summary.csv"), show_col_types = FALSE)
   expect_true(all(diagnosticsSummary$ease_diagnostic == "NOT EVALUATED"))