From a236ce5fad831b98cc0cd7a1d00461b13e40562e Mon Sep 17 00:00:00 2001
From: atusy <30277794+atusy@users.noreply.github.com>
Date: Sat, 17 Nov 2018 14:59:04 +0900
Subject: [PATCH] improve `?.function` supports `::` to specify package

---
 R/question.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/question.R b/R/question.R
index a50d364..64c312a 100644
--- 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 ?