J'ai une fonction que je veux entourer d'une autre fonction, en passant les arguments comme les paramètres d'arguments ...
. Je vais avoir du mal à apprendre comment structurer l'appel de fonction sous-jacente avec lazyeval
est ici un MWE décent,Évaluation non-standard des paramètres de point
library(dplyr)
pythag <- function(a, b){
sqrt(a^2 + b^2)
}
pythag_wrapper <- function(data, ...){
dplyr::mutate_(data,
root = lazyeval::interp(~pythag(x), x = ...)
)
}
Dans ce mon pythag_wrapper
fera quelques munging de données supplémentaires. et pythag
dans mon cas a beaucoup plus de deux arguments. La fonction fonctionne très bien et comme prévu.
test_data <- dplyr::data_frame(a = runif(10), b = runif(10), c = runif(10))
test_data %>%
dplyr::mutate(
root = pythag(a = b, b = c)
)
## # A tibble: 10 × 4
## a b c root
## <dbl> <dbl> <dbl> <dbl>
## 1 0.19805337 0.05567241 0.9956758 0.9972311
## 2 0.22642799 0.18871552 0.8690659 0.8893195
## 3 0.09352032 0.57328658 0.7475573 0.9420719
## 4 0.40589832 0.71270806 0.8014196 1.0724860
## 5 0.35896302 0.85889027 0.8197176 1.1872782
## 6 0.66409819 0.02206298 0.1304790 0.1323312
## 7 0.45102742 0.76048535 0.5501899 0.9386410
## 8 0.48249177 0.93670363 0.8280114 1.2502066
## 9 0.05545819 0.12281684 0.9219704 0.9301148
## 10 0.47588862 0.40196106 0.0192433 0.4024214
J'ai essayé toutes sortes de combinaisons de lazyeval::interp
, lazy_eval::lazy_dots
, etc., mais je ne peux pas comprendre ce qui est censé se produire exactement, beaucoup moins comment résoudre mon problème.
pythag_wrapper(test_data, a = "a", b = "b")
## Error: object 'x' not found
Cela me fait un peu plus loin (et résout le MWF), mais mon cas réel retourne 'erreur dans UseMethod ("as.lazy_dots"): aucune méthode applicable pour 'as.lazy_dots' appliquée à un objet de classe "fonction" ', qui est encore assez obtuse. – gregmacfarlane
Et pouvez-vous expliquer pourquoi vous avez essayé de réécrire l'appel de fonction? Est-ce la façon la plus propre d'aller après ce genre de problème? – gregmacfarlane