fix: better detect functions - fix #63

FRBCesab · Nov 11, 2024 · 9c9daaa · 9c9daaa
1 parent bb5ccea
commit 9c9daaa
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/get_all_functions.R b/R/get_all_functions.R
@@ -49,7 +49,8 @@ get_all_functions <- function() {
 
     ## Extract function names ----
 
-    x <- lapply(x, function(x) x[grep(" <- function\\(", x)])
+    x <- lapply(x, function(x) x[grep("\\s{0,}(<-|=)\\s{0,}function\\s{0,}\\(", 
+                                      x)])
     x <- lapply(x, function(x) gsub("\\s{0,}(<-|=)\\s{0,}function.*", "", x))
 
     x <- unlist(x)