fix #107

r-geoflow · Feb 11, 2021 · 8cd79a6 · 8cd79a6
1 parent bc7c710
commit 8cd79a6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/geoflow_action_geometa_create_iso_19115.R b/R/geoflow_action_geometa_create_iso_19115.R
@@ -14,7 +14,7 @@ geometa_create_iso_19115 <- function(entity, config, options){
   featureid <- if(!is.null(options$featureid)){ options$featureid } else { if(!is.null(features)) colnames(features)[1] else NULL} 
   geographySubject <- if(!is.null(options$subject_geography)) options$subject_geography else "geography"
 
-  createResponsibleParty = function(x, role){
+  createResponsibleParty = function(x, role = NULL){
     if(is.null(role)) role <- x$role 
     rp <- ISOResponsibleParty$new()
     if(!is.na(x$firstName) && !is.na(x$lastName)) rp$setIndividualName(paste(x$firstName, x$lastName))