А не знает ли кто-нибудь, можно как-то при использовании декоратора

Question

А не знает ли кто-нибудь, можно как-то при использовании декоратора

сохранить сигнатуру исходной функции?

Например:

my_f <- function(x, y) {
(x + y)^2L
}
with_log <- function(fn) {
function(...) {
message("called at ", Sys.time())
fn(...)
}
}
my_f2 <- with_log(my_f)

при использовании my_f2 будет сигнатура function(...) и IDE подсказки давать, например не будет

#programming #r #russian

0

28.07.2023

5 ответов

23 просмотра

Александр Севостьянов Автор вопроса

duck debugging сработал, отвечу сам :)) with_log <- function(fn) { fn_out <- function(...) { message("called at ", Sys.time()) fn(...) } formals(fn_out) <- formals(fn) fn_out }

0

28.07.2023

Александр Севостьянов Автор вопроса

Дмитрий Володин
злостное колдунство))

На что только не пойдешь чтобы варнинг из R CMD CHECK убрать

0

28.07.2023

Дмитрий Володин

Александр Севостьянов
На что только не пойдешь чтобы варнинг из R CMD CH...

ха, кстати.)) Но идея с подсказками в ide звучит более убедительной, чтобы это использовать, так что сохранил себе))

0

28.07.2023

Александр Севостьянов Автор вопроса

Александр Севостьянов
duck debugging сработал, отвечу сам :)) with_log...

А вот нет, не всё так просто. Использование ... в оборачиваемой функции сломает всё. Надо так. with_log <- function(fn) { fn_out <- function(...) { message("called at ", Sys.time()) do.call(fn, as.list(match.call())[-1L]) } formals(fn_out) <- formals(fn) fn_out }

0

28.07.2023

Дмитрий Володин · Accepted Answer

Дмитрий Володин

Александр Севостьянов
duck debugging сработал, отвечу сам :)) with_log...

злостное колдунство))

0

28.07.2023

169 похожих чатов

А не знает ли кто-нибудь, можно как-то при использовании декоратора

5 ответов

Похожие вопросы