diff --git a/DESCRIPTION b/DESCRIPTION index 409dff24..7f1d6d32 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,5 +1,5 @@ Package: geoflow -Version: 0.0.9002 +Version: 0.0.9003 Date: 2019-10-18 Title: R engine to orchestrate and run geospatial (meta)data workflows Authors@R: c( diff --git a/R/geoflow.R b/R/geoflow.R index e4d3dd63..c64e69a8 100644 --- a/R/geoflow.R +++ b/R/geoflow.R @@ -28,7 +28,7 @@ #' \tabular{ll}{ #' Package: \tab geoflow\cr #' Type: \tab Package\cr -#' Version: \tab 0.0.9002\cr +#' Version: \tab 0.0.9003\cr #' Date: \tab 2019-10-18\cr #' License: \tab MIT\cr #' LazyLoad: \tab yes\cr diff --git a/R/geoflow_action_geonapi_publish_iso_19139.R b/R/geoflow_action_geonapi_publish_iso_19139.R index cbe34aeb..3f67b0d6 100644 --- a/R/geoflow_action_geonapi_publish_iso_19139.R +++ b/R/geoflow_action_geonapi_publish_iso_19139.R @@ -7,6 +7,11 @@ geonapi_publish_iso_19139 <- function(entity, config, options){ stop("Package 'geonapi' is required for this action") } + geometa_inspire <- if(!is.null(options$geometa_inspire)) options$geometa_inspire else FALSE + if(geometa_inspire){ + config$logger.info("INSPIRE geometa option enabled: The record will be checked against the INSPIRE reference validator prior its CSW-T publication") + } + #shortcut for gn config GN <- config$software$output$geonetwork @@ -28,7 +33,8 @@ geonapi_publish_iso_19139 <- function(entity, config, options){ #insert metadata (once inserted only visible to the publisher) group <- if(!is.null(options$group)) options$group else "1" category <- if(!is.null(options$category)) options$category else "datasets" - created = GN$insertMetadata(geometa = md, group = group, category = category) + created = GN$insertMetadata(geometa = md, group = group, category = category, + geometa_inspire = geometa_inspire) #config privileges config <- GNPrivConfiguration$new() @@ -36,7 +42,8 @@ geonapi_publish_iso_19139 <- function(entity, config, options){ GN$setPrivConfiguration(id = created, config = config) }else{ #update a metadata - updated = GN$updateMetadata(id = metaId, geometa = md) + updated = GN$updateMetadata(id = metaId, geometa = md, + geometa_inspire = geometa_inspire) #config privileges gn_config <- GNPrivConfiguration$new() diff --git a/README.md b/README.md index 0eae237d..91bbb561 100644 --- a/README.md +++ b/README.md @@ -2,7 +2,7 @@ [![Build Status](https://travis-ci.org/eblondel/geoflow.svg?branch=master)](https://travis-ci.org/eblondel/geoflow) [![CRAN_Status_Badge](http://www.r-pkg.org/badges/version/geoflow)](https://cran.r-project.org/package=geoflow) -[![Github_Status_Badge](https://img.shields.io/badge/Github-0.0.9002-blue.svg)](https://github.com/eblondel/geoflow) +[![Github_Status_Badge](https://img.shields.io/badge/Github-0.0.9003-blue.svg)](https://github.com/eblondel/geoflow) [![DOI](https://zenodo.org/badge/DOI//10.5281/zenodo.3138920.svg)](https://doi.org//10.5281/zenodo.3138920) **R engine to orchestrate and run geospatial (meta)data workflows** diff --git a/man/geoflow.Rd b/man/geoflow.Rd index 48542779..0b69cab5 100644 --- a/man/geoflow.Rd +++ b/man/geoflow.Rd @@ -12,7 +12,7 @@ R engine to orchestrate and run geospatial (meta)data workflows \tabular{ll}{ Package: \tab geoflow\cr Type: \tab Package\cr - Version: \tab 0.0.9002\cr + Version: \tab 0.0.9003\cr Date: \tab 2019-10-18\cr License: \tab MIT\cr LazyLoad: \tab yes\cr