From 5c3af67946774c86a058c56055ca4e2b69afd98a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kirill=20M=C3=BCller?= <krlmlr+r@mailbox.org>
Date: Tue, 7 Jan 2020 17:16:32 +0100
Subject: [PATCH] Remove unused

---
 R/aaa-tools.R | 18 ------------------
 1 file changed, 18 deletions(-)
 delete mode 100644 R/aaa-tools.R

diff --git a/R/aaa-tools.R b/R/aaa-tools.R
deleted file mode 100644
index 8bad767..0000000
--- a/R/aaa-tools.R
+++ /dev/null
@@ -1,18 +0,0 @@
-# nocov start
-forward_to <- function(f, envir = parent.frame()) {
-  f_fmls <- formals(f)
-  f_called_fmls <- stats::setNames(lapply(names(f_fmls), as.symbol), names(f_fmls))
-
-  f_call <- as.call(c(substitute(f), f_called_fmls))
-
-  f_ret <- eval(bquote(
-    function() {
-      .(f_call)
-    }
-  ))
-
-  formals(f_ret) <- f_fmls
-  environment(f_ret) <- envir
-  f_ret
-}
-# nocov end