Displaying 4 results from an estimated 4 matches for "funbody".
Did you mean:
forbody
2015 Jan 21
2
reducing redundant work in methods package
...ns of this function
TEST_ENV[[fname]] = list() # Actually probably not necessary, will
just be c(NULL, list(first result)) the first time
# Construct test version of function
unlockBinding(fname, ns)
fun = get(fname, envir=ns, mode="function")
funbody = deparse(body(fun))
newfun <- fun
newfun.body = c(
sprintf("fname = '%s'", fname),
"TEST_INFO = list()",
"TEST_INFO$input = mget(names(formals(fname)))",
c("realfun <- function()&...
2015 Jan 21
2
reducing redundant work in methods package
...sary,
>> will
>> just be c(NULL, list(first result)) the first time
>>
>> # Construct test version of function
>>
>> unlockBinding(fname, ns)
>>
>> fun = get(fname, envir=ns, mode="function")
>>
>> funbody = deparse(body(fun))
>>
>> newfun <- fun
>>
>> newfun.body = c(
>>
>> sprintf("fname = '%s'", fname),
>>
>> "TEST_INFO = list()",
>>
>> "TEST_INFO$inpu...
2015 Jan 21
0
reducing redundant work in methods package
...ame]] = list() # Actually probably not necessary, will
> just be c(NULL, list(first result)) the first time
>
> # Construct test version of function
>
> unlockBinding(fname, ns)
>
> fun = get(fname, envir=ns, mode="function")
>
> funbody = deparse(body(fun))
>
> newfun <- fun
>
> newfun.body = c(
>
> sprintf("fname = '%s'", fname),
>
> "TEST_INFO = list()",
>
> "TEST_INFO$input = mget(names(formals(fname)))",
&...
2015 Jan 22
0
reducing redundant work in methods package
...t be c(NULL, list(first result)) the first time
>>>
>>> # Construct test version of function
>>>
>>> unlockBinding(fname, ns)
>>>
>>> fun = get(fname, envir=ns, mode="function")
>>>
>>> funbody = deparse(body(fun))
>>>
>>> newfun <- fun
>>>
>>> newfun.body = c(
>>>
>>> sprintf("fname = '%s'", fname),
>>>
>>> "TEST_INFO = list()",
>>>
>&...