R/filter-combine.R

In jmbarbone/jordanExtra: Extra Functions for the mark Package

#' Filter combine
#'
#' Filters a data frame then binds the result with it (with names).
#'
#' @param x A data.frame
#' @inheritDotParams dplyr::filter -.data -.preserve
#' @param .id When .id is supplied, a new column of identifiers is created to link each row to its original data frame.
#' The labels are taken from `.names`
#' @param .names vector of characters for the
#'
#' @export
#'
#' @seealso [dplyr::filter()] and [dplyr::bind_rows()]

filter_combine <- function(x, ..., .id, .names) {
  require_namespace("rlang")
  require_namespace("dplyr")
  stopifnot(length(.names) <= 2)
  dots <- rlang::enquos(...)
  xy <- list(x, dplyr::filter(x, !!!dots))
  names(xy) <- .names
  dplyr::bind_rows(xy, .id = .id)
}