R/tidyDataType.R

In europace-privatkredit/tidyPkuData: Tidy Europace loan data

#' base data type
#'
#' @description This function adjusts data types for base analytics
#' @param df The name of the dataframe you want to manipulate
#' @return datatframe, tibble
#' @keywords data types
#' @import dplyr, timetk
#' @export
#' @examples tidyDataType(df = df)

tidyDataType <- function(df) {

  df <- df %>%
    dplyr::mutate_at(.vars = vars(status,
                           produktanbieterid,
                           vertriebsorganisationsid
                           # verwendungszweck,
                           # antragautomatischabgelehnt,
                           # antragsteller1beschaeftigungsart,
                           # antragsteller2beschaeftigungsart,
                           #produktbezeichnung
                           # as1_wohnart,
                           # as2_wohnart,
                           # rsv_as1_leben,
                           # rsv_as1_arbeitslosigkeit,
                           # rsv_as1_arbeitsunfaehigkeit,
                           # rsv_as2_leben,
                           # rsv_as2_arbeitslosigkeit,
                           # rsv_as2_arbeitsunfaehigkeit
    ),
    .funs = as.factor) %>%
    timetk::tk_tbl(preserve_index = FALSE)

  return(df)

}