R/rfm-table-customer-2.R

In rsquaredacademy/segmentr: Recency, Frequency and Monetary Value Analysis

#' @export
#' @rdname rfm_table_customer
#' @usage NULL
#'
rfm_table_customer_2 <- function(data = NULL, customer_id = NULL,
                                 n_transactions = NULL, latest_visit_date = NULL,
                                 total_revenue = NULL, analysis_date = NULL,
                                 recency_bins = 5, frequency_bins = 5,
                                 monetary_bins = 5, ...) {

  .Deprecated("rfm_table_customer()")

  col_names <- c("customer_id", "recency_days", "transaction_count", "amount")

  result <-
    data %>%
    mutate(
      recency_days = as.numeric(analysis_date - {{ latest_visit_date }},
                                units = "days")) %>%
    select({{ customer_id }}, recency_days, {{ n_transactions }},
           {{ total_revenue }}) %>%
    set_names(col_names)

  rfm_prep_bins(result, recency_bins, frequency_bins, monetary_bins,
                analysis_date)

}