R/fct_to_char.R

In tsouchlarakis/rdoni:

fct_to_char <- function(df) {
  # Convert all factor columns to character in a dataframe
  #
  # Arguments:
  #  df {dataframe} -- a dataframe for which to convert all factor columns to character
  #
  # Returns:
  #   {dataframe}
  
  factor_cols = sapply(df, is.factor)
  factor_cols = names(factor_cols)[factor_cols]
  
  if (length(factor_cols) == 1) {
    df[[factor_cols]] = as.character(df[[factor_cols]])
  } else {
    df[, sapply(df, is.factor)] = data.frame(lapply(
      df[, sapply(df, is.factor)], as.character
    ), stringsAsFactors = FALSE)  
  }
  
  return(df)
}