felp returns help rather than input function

atusy · May 10, 2019 · 96d2429 · 96d2429
1 parent 5de5ff3
commit 96d2429
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/felp.R b/R/felp.R
@@ -21,12 +21,13 @@ felp <- function (x, package = NULL, ...) {
   }
   package <- c(package, input[2][[1]])
 
-  # Try to find help
-  try(print(help(input[[1]], package = package[1], ...)))
 
   # Print source of the function
   prettycode:::print.function(get(
     input[[1]],
     envir = `if`(is.null(package), parent.frame(), asNamespace(package))
   ))
+
+  try(help(input[[1]], package = package[1], ...))
+
 }