R : 문자열의 내용을 함수 본문으로 바꿈

Question

특정 속성을 기반으로 함수를 반환하는 함수를 작성했습니다. 문제는 "paste"를 사용하여 반환 된 객체를 문자열로 만들어야한다는 것입니다. 다음은 반환 된 객체의 예입니다 :

the_problem <- "beta['v_p'] * 0.1 * ((3.99 * exp(-0.144 * time)) + 
       (4.78 * exp(-0.0111 * time))) + 0.1 * beta['ktrans_1'] * (3.99 * (exp(- 
    beta['kep_1']* time) - exp(- 0.144 * time)) * (0.144 - 
    beta['kep_1'])**(-1) + (4.78 * (exp(- beta['kep_1'] * time)- exp(- 
    0.0111 * time)) * (0.0111 - beta['kep_1'])**(-1)))" 

객체 "the_problem"을 함수로 사용할 수 있도록 조작하고 싶습니다. 예 :

dcemri_func <- function(beta){ 
    return(get.rid.of.string(the_problem))} 

이미 "as.function"을 시도했지만 작동하지 않습니다. 아이디어가 있으십니까?

고마워, 그리고 최고의 whishes,

크리스

Answer 1

당신은, 즉 :

the_problem <- paste0('function(beta) ', the_problem) 
dcemri_func <- eval(parse(text = the_problem))