refactor: simplify map() call to follow lintr's rec

EMODnet · Jul 1, 2024 · 2003a2e · 2003a2e
1 parent b797b8e
commit 2003a2e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/layers.R b/R/layers.R
@@ -207,7 +207,7 @@ checkmate_crs <- function(sf, crs = NULL) {
 
 standardise_crs <- function(out, crs = NULL) {
   if (checkmate::test_class(out, "list")) {
-    purrr::map(out, ~ checkmate_crs(.x, crs = crs))
+    purrr::map(out, checkmate_crs, crs = crs)
   } else {
     checkmate_crs(out, crs = crs)
   }