integrate(function(a, b) { D(expression(...) }),1,2) — не работает

v <- function(a, b) { D(expression(...) }
integrate(v,1,2) — не работает

D(expression(...))
/*тут промежуточный результат дифференцирования*/
v <- function(a, b) { <копи-паста из вывода промежуточного результата> }
integrate(v,1,2) — работает (!!!)

Как сохранить тут промежуточный результат дифференцирования от D(expression(...)) в переменную (чтобы R не пытался считать D(expression(...) внутри integrate), чтоб избежать копипасты вывода D(expression(...)) ?