Skip to content

Commit 1ab0cd8

Browse files
committed
fix #442
1 parent 28bc230 commit 1ab0cd8

File tree

2 files changed

+3
-2
lines changed

2 files changed

+3
-2
lines changed

NEWS.md

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -7,6 +7,7 @@
77
* [#437](https://github.com/r-geoflow/geoflow/issues/437) Metadata privileges not assigned to 'all' when no restriction
88
* [#439](https://github.com/r-geoflow/geoflow/issues/439) Priv configuration setting broken for ISO 19110 (wrong md identifier)
99
* [#440](https://github.com/r-geoflow/geoflow/issues/440) Metadata thumbnail publication fails if description includes special characters
10+
* [#442](https://github.com/r-geoflow/geoflow/issues/442) Entity toDataFrame fails with Null provenance
1011

1112
**New features**
1213

R/geoflow_entity.R

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2440,10 +2440,10 @@ geoflow_entity <- R6Class("geoflow_entity",
24402440
Provenance = {
24412441
outprov <- NA
24422442
if(!is.null(self$provenance)){
2443-
if(is.na(self$provenance$statement)){
2443+
if(is.null(self$provenance$statement)){
24442444
outprov <- ""
24452445
}else{
2446-
outprov <- paste0("statement:", paste0("\"",self$provenance$statement,"\""))
2446+
outprov <- if(is.na(self$provenance$statement)) "" else paste0("statement:", paste0("\"",self$provenance$statement,"\""))
24472447
if(length(self$provenance$processes)>0){
24482448
outprov <- paste0(outprov, line_separator)
24492449
processes_str <- paste0(sapply(self$provenance$processes, function(process){

0 commit comments

Comments
 (0)