map_filter.R

map_filter <- function(dataset, variable, list_values, rbind = FALSE){

  variable <- enquo(variable)
  
  for_one_dataset <- function(dataset, variable, value){
    dataset %>%
      filter((!!variable) == value)
  }

  if (rbind) {
  	mapfun <- purrr::map_df
  } else {
  	mapfun <- purrr::map
  }

  mapfun(list_values, for_one_dataset, dataset = dataset, variable = variable)

}