R/tidyParnerid.R

In europace-privatkredit/tidyPkuData: Tidy Europace loan data

#' drop test accounts
#'
#' @description This function drops test partnerid's which are used in production enviornment
#' @param df The name of the dataframe you want to manipulate, 
#' @param var The name of the identifier variable, 
#' @return datatframe, tibble
#' @keywords product provider levels
#' @import dplyr, rlang
#' @export
#' @examples fun_tidyPa(df = df)

tidyPartnerID <- function(df, var = kundenbetreuerep2partnerid) {
  
  testIDs <- c('QBP88',    
               'QFY92',    
               'BZD08',    
               'PHX84',    
               'YLJ57',    
               'EKO89',    
               'GHF34',    
               'BSW03',    
               'VUW92',    
               'EUA69',    
               'NNM52',    
               'ILU10',    
               'PPF69',    
               'GGC81',    
               'UZE66',    
               'STY81',    
               'MKB88',    
               'IOV04',    
               'DEJ77',    
               'VAU22',    
               'WSY68',    
               'UDL10',    
               'HRG70',    
               'RWR01',    
               'AMY17',    
               'LAW50',    
               'DNC57',    
               'PAF17',    
               'PNK94',    
               'KHC66',    
               'DYN08',    
               'LEB53',    
               'IGS51',    
               'EHW26',    
               'AIM87',    
               'PPF69',   
               'JYU55',    
               'OHQ17',    
               'TFW81',    
               'SCI56',    
               'RPM32'     
  )
  
  df <- df %>% dplyr::filter(!{{var}} %in% testIDs)
  
  return(df)
}