From a02cd40f0b248ba329550314de9d1ab3dda75ed3 Mon Sep 17 00:00:00 2001 From: florisvdh Date: Mon, 9 Sep 2024 10:47:52 +0200 Subject: [PATCH] get_locs(): also substitute cases with filterlength == 0 by 0.3 m * Up to now, only missing values for filterlength were auto-replaced with 0.3 m. As it appears that quite some records have a zero value for filterlength, it makes more sense to handle them the same way. --- R/get.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/get.R b/R/get.R index e4a02b4..f31f43a 100644 --- a/R/get.R +++ b/R/get.R @@ -440,7 +440,8 @@ get_locs <- function(con, mutate(tubelength = ifelse(.data$PeilbuisLengte <= 0, NA, .data$PeilbuisLengte), - filterlength = ifelse(is.na(.data$FilterLengte), + filterlength = ifelse(is.na(.data$FilterLengte) | + .data$FilterLengte == 0, 0.3, .data$FilterLengte), filterdepth = .data$tubelength -