R/outerLapply.R

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