From 7ea3f3685d02d627edc0641e477d20d674f129ad Mon Sep 17 00:00:00 2001 From: cecileherr Date: Fri, 27 Sep 2024 10:55:51 +0200 Subject: [PATCH] read_habitatmap: run st_is_valid only once (but still not used - slow) --- R/read_habitatdata.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/read_habitatdata.R b/R/read_habitatdata.R index 9c7691b..742a46f 100644 --- a/R/read_habitatdata.R +++ b/R/read_habitatdata.R @@ -1053,8 +1053,9 @@ read_habitatmap <- if (fix_geom) { # temporarily dropped because st_is_valid takes too long + # validities <- st_is_valid(habitatmap) # n_invalid <- sum( - # !st_is_valid(habitatmap) | is.na(st_is_valid(habitatmap)) + # !validities | is.na(validities) # ) # if (n_invalid > 0) { habitatmap <- st_make_valid(habitatmap)