coerce_multiple_character_vars_to_factor.R

# load required libraries
library(tidyverse)
# READ DATA IN MEMORY
df_train<- read.csv("kaggle_fake_job_prediction/data/fake_job_postings.csv",
                    header=T, na.strings=c(" ","NA"), stringsAsFactors = FALSE, strip.white = TRUE)

# create copy
df<- df_train
df<- df %>%
  mutate_if(is.character, funs(factor(.)))