R/grab_many.R

In JARS3N/outliers: outliers

grab_many<-function(PATH=getwd()){
  require(dplyr)
  dplyr::bind_rows(
    lapply(
      grep(pattern="~",
           x=list.files(pattern='.xlsx$',
                        path=PATH,
                        full.names=TRUE),
           invert=T,value=T),
      grab)
  )
}