# NOT RUN {
df <-
data.frame(
a = 1:2,
b = factor(c("a", "b")),
c = as.character(letters[3:4]),
stringsAsFactors = FALSE
)
vapply(df, class, "")
df_df <- df_defactorize(df)
vapply(df_df, class, "")
# }
Run the code above in your browser using DataLab