improve ?.function supports :: to specify package

atusy · Nov 17, 2018 · a236ce5 · a236ce5
1 parent ae0bc62
commit a236ce5
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/question.R b/R/question.R
@@ -10,9 +10,9 @@
 #' @inheritParams ?
 #' @export
 `?.function` <- function() {
-  f <- deparse(substitute(e1))
-  base::print.function(e1)
-  help(f)
+  .felp <- felp
+  formals(.felp)$x <- substitute(e1)
+  .felp()
 }
 #' @rdname question
 #' @aliases ?