Improve readability

KWB-R · Aug 12, 2023 · 5df569e · 5df569e
1 parent 407a0bb
commit 5df569e
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/analyse.R b/R/analyse.R
@@ -23,9 +23,12 @@ analyse <- function(x, path = "")
 
   if (is.recursive(x)) {
 
-    result[["children"]] <- lapply(seq_along(x), function(i) {
-      analyse(x[[i]], path = paste(path, i, sep = "/"))
-    })
+    result[["children"]] <- lapply(
+      X = seq_along(x), 
+      FUN = function(i) {
+        analyse(x[[i]], path = paste0(path, "/", i))
+      }
+    )
   }
 
   result