Provides a convenient way to create dummy variables

dummify.R

# to-do: properly document it

library(tidyverse)
library(rlang)

dummify = function(.data, ..., .pattern = "{column}_{value}") {
  cols = quos(...)
  
  new_cols = imap(cols, function(quoted_expr, column) {
    if (is_integer(column) || column == "") {
      column = expr_text(quoted_expr) %>% str_sub(2) # removes the ~
      values = .data[[column]] %>% unique
    } else {
      values = eval_tidy(quoted_expr)
    }
    
    vec = .data[[column]]
    
    imap(values, function(real_value, value) {
      if (is_integer(value) || value == "") 
        value = real_value
      dummy_col = glue(.pattern)
      .data %>%
        transmute(!!sym(dummy_col) := as.integer(vec == real_value))
    }) %>%
      bind_cols
  })
  
  bind_cols(.data, new_cols)
}