是否可以检索函数调用的函数组件?也就是说,是否可以在另一个函数调用上使用as.list(match.call())
。
背景是,我想要一个函数,它接受一个函数调用并返回所述函数调用的组件。
get_formals <- function(x) {
# something here, which would behave as if x would be a function that returns
# as.list(match.call())
}
get_formals(mean(1:10))
# expected to get:
# [[1]]
# mean
#
# $x
# 1:10
期望的结果是使
get_formals
返回与在提供的函数调用中调用match.call()
相同的结果。mean2 <- function(...) {
as.list(match.call())
}
mean2(x = 1:10)
# [[1]]
# mean2
#
# $x
# 1:10
另一个例子
这个问题的动机是检查一个memoize
函数是否已经包含了缓存值。 memoize
有一个函数has_cache()
,但它需要以特定的方式调用has_cache(foo)(vals)
,例如:
library(memoise)
foo <- function(x) mean(x)
foo_cached <- memoise(foo)
foo_cached(1:10) # not yet cached
foo_cached(1:10) # cached
has_cache(foo_cached)(1:10) # TRUE
has_cache(foo_cached)(1:3) # FALSE
我的目标是在函数调用被缓存或不被缓存时记录一些内容。
cache_wrapper <- function(f_call) {
is_cached <- has_cache()() # INSERT SOLUTION HERE
# I need to deconstruct the function call to pass it to has_cache
# basically
# has_cache(substitute(expr)[[1L]])(substitute(expr)[[2L]])
# but names etc do not get passed correctly
if (is_cached) print("Using Cache") else print("New Evaluation of f_call")
f_call
}
cache_wrapper(foo_cached(1:10))
#> [1] "Using Cache" # From the log-functionality
#> 5.5 # The result from the function-call
get_formals = function (expr) substitute(expr)[[2L]]
对你的目的不够充分? - Konrad Rudolphdeparse
操作?如果你能发布一个演示,展示你将如何使用这个检索工具,那会很有帮助。 - Carl Witthoft