R/biLSapply.R

biLSapply <- function(FUN,X,Y,...){
  require(dplyr)
  internal <- function(X,Y,FUN,...){
    return(Y%>% sapply(FUN,X,...))
  }
  return(X %>% lapply(internal,Y,FUN,...))
}
blogsdon/utilityFunctions documentation built on May 12, 2019, 9:32 p.m.