Binning Columns in Remote Tables" dplyr join function

db_dplyr_join_fn.R

db_dplyr_join_fn <- function(data, tbl_cuts, column_to_cut="column_to_cut"){
  bin_choices <- data %>%
    select(., id, k_dummy, !!rlang::sym(column_to_cut)) %>%
    left_join(., tbl_cuts, by = 'k_dummy') %>%
    filter(., cut >= !!rlang::sym(column_to_cut)) %>%
    group_by(., id) %>%
    summarise(., cut_ = min(cut, na.rm = TRUE))
  return(dplyr::compute(dplyr::left_join(data, bin_choices, by = 'id')))
}