minor fix

r-geoflow · Mar 21, 2024 · 8f351b6 · 8f351b6
1 parent 67a0737
commit 8f351b6
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/geoflow_entity.R b/R/geoflow_entity.R
@@ -1369,11 +1369,12 @@ geoflow_entity <- R6Class("geoflow_entity",
               uploadSourceExt<-switch(data_object$uploadType,
                                       "shp" = "zip",
                                       "gpkg" = "zip",
-                                      data_object$uploadType
+                                      NULL
 
               )
               writeWorkflowJobDataResource(entity=self,config=config,type=data_object$uploadType,useFeatures=TRUE,resourcename=datasource_name)
-              data_object$uploadSource<-list(paste0(datasource_name,".",uploadSourceExt))
+              data_object$uploadSource<-list(datasource_name)
+              if(!is.null(uploadSourceExt)) data_object$uploadSource<-list(paste0(datasource_name,".",uploadSourceExt))
 
             }else{
               config$logger.info("sourceType and uploadType are identical, no conversion required")