calculate depth

iobis · May 17, 2019 · 79a314f · 79a314f
1 parent 7e49c68
commit 79a314f
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: robis
 Title: Ocean Biogeographic Information System (OBIS) Client
 Description: Client for the Ocean Biogeographic Information System (<https://obis.org>).
-Version: 2.1.3
+Version: 2.1.4
 Date: 2019-05-17
 Authors@R: c(
     person("Pieter", "Provoost", , "pieterprovoost@gmail.com", c("cre", "aut")),

diff --git a/R/occurrence.R b/R/occurrence.R
@@ -92,5 +92,12 @@ occurrence <- function(
   }
 
   data <- bind_rows(result_list)
+
+  depthFields <- intersect(c("minimumDepthInMeters", "maximumDepthInMeters"), names(data))
+  if (length(depthFields) > 0) {
+    data$depth <- rowMeans(data[depthFields], na.rm = TRUE)
+    data$depth[which(is.nan(data$depth))] <- NA
+  }
+
   return(data)
 }