R/functional_programming.R

map_filter <- function(.x,.f){
  .x[map_lgl(.x,.f)]
}

map_filter_result <- function(.x,name='result'){
  map(map_filter(.x,~!is.null(.[[name]])),name)
}
frandiego/rfords documentation built on May 25, 2019, 5:23 p.m.