Conditional mutate in a custom function to change a character column in R

Question

Suppose I have the following function in R:

my_function <- function(date1, date2, variable, quota, monthly_business_days) {
    my_data %>%
        filt