diff --git a/R/geoflow_action_geometa_create_iso_19115.R b/R/geoflow_action_geometa_create_iso_19115.R index 50a833bb..cc13d0cd 100644 --- a/R/geoflow_action_geometa_create_iso_19115.R +++ b/R/geoflow_action_geometa_create_iso_19115.R @@ -14,11 +14,6 @@ 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" -#' \item{\code{createResponsibleParty(x, role)}}{ -#' create a responsible party for contact -#' } - -#createResponsibleParty createResponsibleParty = function(x, role){ if(is.null(role)) role <- x$role rp <- ISOResponsibleParty$new() @@ -45,6 +40,7 @@ geometa_create_iso_19115 <- function(entity, config, options){ contact$setOnlineResource(res) } rp$setContactInfo(contact) + return(rp) } #metadata creation diff --git a/man/geometa_create_iso_19115.Rd b/man/geometa_create_iso_19115.Rd deleted file mode 100644 index 84437111..00000000 --- a/man/geometa_create_iso_19115.Rd +++ /dev/null @@ -1,15 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/geoflow_action_geometa_create_iso_19115.R -\name{geometa_create_iso_19115} -\alias{geometa_create_iso_19115} -\title{\item{\code{createResponsibleParty(x, role)}}{ - create a responsible party for contact - }} -\usage{ -geometa_create_iso_19115(entity, config, options) -} -\description{ -\item{\code{createResponsibleParty(x, role)}}{ - create a responsible party for contact - } -}