Displaying 2 results from an estimated 2 matches for "rhwrap".
2012 May 31
1
Repost: Expressions returned by GlobalEnv functions and package functions
...r) {
{
len <- length(r$addon)
rhcollect(len, 1)
}
}, 1:length(map.values), map.keys, map.values)
NULL
})
attr(,"class")
[1] "expression" "rhmr-map"
ewrap is defined in the GlobalEnv. In my package (Rhipe), a function
rhwrap has the exact same definition
rhwap <- function(co1=NULL,before=NULL,after=NULL){
co <- substitute(co1); before=substitute(before)
j <- as.expression(bquote({
.(BE)
result <- mapply(function(.index,k,r){
.(CO)
},1:length(map.values),map.keys,map.values)
.(AF)...
2012 May 31
0
Expressions returned by a Package function
...r) {
{
len <- length(r$addon)
rhcollect(len, 1)
}
}, 1:length(map.values), map.keys, map.values)
NULL
})
attr(,"class")
[1] "expression" "rhmr-map"
ewrap is defined in the GlobalEnv. In my package (Rhipe), a function rhwrap
has the exact same definition
rhwap <- function(co1=NULL,before=NULL,after=NULL){
co <- substitute(co1); before=substitute(before)
j <- as.expression(bquote({
.(BE)
result <- mapply(function(.index,k,r){
.(CO)
},1:length(map.values),map.keys,map.values)
.(AF)...