From 8cd79a65e1d84fdd212d77948dd0982f6a66eaf0 Mon Sep 17 00:00:00 2001
From: Emmanuel Blondel <emmanuel.blondel1@gmail.com>
Date: Thu, 11 Feb 2021 13:39:45 +0100
Subject: [PATCH] fix #107

---
 R/geoflow_action_geometa_create_iso_19115.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/geoflow_action_geometa_create_iso_19115.R b/R/geoflow_action_geometa_create_iso_19115.R
index cc13d0c..8de67bf 100644
--- 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))