refactor: simplify apply() call to obey lintr

EMODnet · Jul 1, 2024 · 4593911 · 4593911
1 parent 2003a2e
commit 4593911
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/layers.R b/R/layers.R
@@ -267,9 +267,7 @@ namespace_layer_names <- function(wfs, layers) {
     info$layer_name %in% layers,
     c("layer_namespace", "layer_name")
   ] %>%
-    apply(1L, FUN = function(x) {
-      paste0(x, collapse = ":")
-    })
+    apply(1L, FUN = paste0, collapse = ":")
 }
 
 get_layer_format <- function(layer, wfs) {