troubleshooting ncml handler

r-geoflow · May 30, 2024 · 5883b50 · 5883b50
1 parent fe1cc13
commit 5883b50
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/geoflow_entity.R b/R/geoflow_entity.R
@@ -430,6 +430,7 @@ geoflow_entity <- R6Class("geoflow_entity",
         if(!data_object$sourceType %in% c("dbtable", "dbquery", "dbview")) for(i in 1:length(data_object$source)){
 
           datasource <- data_object$source[[i]]
+          if(is.null(datasource)) next;
           datasource_parts <- unlist(strsplit(datasource, "\\.(?=[^\\.]+$)", perl=TRUE))
           if(length(datasource_parts)<2)if(data_object$sourceType != "nc") stop("Source data file should include a file extension")
           datasource_name <- datasource_parts[1]