R/tidyFrontend.R

In europace-privatkredit/tidyPkuData: Tidy Europace loan data

#' frontend factor levels
#'
#' @description This function recodes factor levels in frontend vector
#' @param df The name of the dataframe you want to manipulate
#' @return datatframe, tibble
#' @keywords frontend levels
#' @import dplyr, forcats
#' @export
#' @examples tidyFrontend(df = df)

tidyFrontend <- function(df) {

  df <- df %>%
    dplyr::mutate(frontend = as.factor(frontend),
           frontend = forcats::fct_recode(frontend,
                                 'OMC' = 'EUROPACE Classic',
                                 'KS'  = 'EUROPACE 2')
    )

  return(df)
}