apply_filters: Apply consecutive filter expressions to a data frame and...

In jbkunst/risk3r: Tools for credit risk modelling

Apply consecutive filter expressions to a data frame and return results

Description

Apply consecutive filter expressions to a data frame and return results

Usage

apply_filters(
  data,
  filters,
  summary_fun = function(data) {
     dplyr::summarise(data)
 },
  verbose = TRUE
)

Arguments

data	A data frame.
filters	A list of named quoted expressions.
summary_fun	A summary function. Recive a data frame and return a data frame.
verbose	A logical value

Examples

require(rlang) # summarise, n_distinct, n
require(dplyr) # quo

data <- mtcars

filters <- list(
  `am equals to 1`  = quo(am == 1),
  `carb = 1!!`      = quo(carb == 1),
  `hp less than 90` = quo(hp < 90)
)

summary_fun <- function(data) {
  summarise(
    data,
    n = dplyr::n(),
    cyl_mean = mean(cyl),
    n_unique_cyl = n_distinct(cyl)
    )
}

results <- apply_filters(data, filters, summary_fun)

results

jbkunst/risk3r documentation built on March 19, 2024, 10:49 p.m.