fix csv guess_max in case passed through ocs

r-geoflow · May 14, 2024 · d922808 · d922808
1 parent e5b940d
commit d922808
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/inst/metadata/entity/entity_handler_csv.R b/inst/metadata/entity/entity_handler_csv.R
@@ -3,7 +3,9 @@ handle_entities_csv <- function(handler, source, config, handle = TRUE){
 
   #read csv TODO -> options management: sep, encoding etc
   #source <- read.csv(source,stringsAsFactors = F)
-  source <- as.data.frame(readr::read_csv(source, guess_max = handler$getOption("guess_max")))
+  guess_max = handler$getOption("guess_max")
+  if(is.null(guess_max)) guess_max = 0
+  source <- as.data.frame(readr::read_csv(source, guess_max = guess_max))
   if(!handle) return(source)
 
   #apply generic handler