有大量的在等这个话题的问题,包括这个问题如何计算表达式,这一个展示如何使用一些不同的意见eval
,而这个答案显示了eval(substitute(.))
招。Hadley Wickham撰写的Advanced R的元编程部分是学习非标准评估(NSE)的一个很好的参考。我注意到在答案中存在很多分歧,其中一些信号表明使用字符串作为待评估对象存在问题。
我处于使用字符串作为子函数的参数的情况。
这里是一个代表:
# Consider a little toy function:
little_fun <- function(z = 2, y = 1) {
(z + 2) / y
}
little_fun()
#> [1] 4
# I can call little_fun() on lists of arguments:
z_list <- c(1,2,3)
purrr::map_dbl(.x = z_list, ~ little_fun(z = (.x))) # This is basically a tidyverse equivalent for lapply()
#> [1] 3 4 5
# or also:
z_list <- c(1,2,3)
y_list <- c(-1, 0, 1)
purrr::map2_dbl(.x = z_list, .y = y_list, ~ little_fun(z = (.x), y = (.y))) # again, similar to mapply()
#> [1] -3 Inf 5
# But I also want to assign the parameters from a more general parent function:
big_fun <- function(par = "y") {
stopifnot(par %in% c("z", "y"))
par_list <- c(1,2,3)
purrr::map_dbl(.x = par_list, ~ little_fun(par = (.x))) # <--- key line <---
}
big_fun()
#> Error in little_fun(par = (.x)): unused argument (par = (.x))
我的问题:我仍然无法运行我的代码。
我的问题:使用字符作为函数参数为什么不好?我应该避免这种情况吗?如何?我想了解如何改善我的推理能力并学习可用的替代方法。
我不同意chinsoon12对您的问题“我应该避免这种情况吗?”的回答。
“保护自己免受未来的愚蠢” – chinsoon12
话虽这么说,动态分配的参数名称是do.call
很方便的地方。
big_fun <- function(par = "y") {
stopifnot(par %in% c("z", "y"))
par_list <- c(1,2,3)
purrr::map_dbl(.x = par_list, ~do.call(little_fun, as.list(setNames(.x, par))))
}
big_fun()
# [1] 4.000000 2.000000 1.333333
big_fun("z")
# [1] 3 4 5
我个人发现这样的编程有时会令人反感和有问题,而在另一些情况下,也许是优雅地解决某些问题的唯一方法。有时,它是最简洁,强大和有效的解决方案。
仅检查一下,我相信big_fun()
它本身应该与此匹配:
sapply(1:3, little_fun, z=2)
# [1] 4.000000 2.000000 1.333333
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句