aqualectrawriteoffcalc/R/fct_helpers.R

#' helpers 
#'
#' @description A fct function
#'
#' @return The return value, if any, from executing the function.
#' @import dplyr
#' @noRd
#' @importFrom tidyr pivot_wider

otype<-function(oi){
  oi %>% 
    group_by(o.type) %>% 
    summarize(amount=sum(amount)) %>% 
    rename(name=o.type)
}

neg<-function(oi){
  oi %>% 
    group_by(negative) %>% 
    summarize(amount=sum(amount)) %>% 
    rename(name=negative)
}

fpm<-function(oi){
  oi %>% 
    group_by(spread) %>% 
    summarize(amount=sum(amount)) %>% 
    rename(name=spread)
}

ab<-function(oi){
  oi %>% 
    group_by(AGE_BUCKET) %>% 
    summarize(amount=sum(amount)) %>% 
    rename(name=AGE_BUCKET)
}


tfrnma<-function(dat){
  if("TRUE" %in% colnames(dat)){
    dat<-dat |> rename(credits=`TRUE`)
  }
  if("FALSE" %in% colnames(dat)){
    dat<-dat |> rename(`Open Items`=`FALSE`)
  }
  dat
}  

cont.aggr<-function(dat){
  dat %>% 
    group_by(business_partner,contract_account, negative) %>% 
    summarize(amount=sum(amount)) %>% 
    pivot_wider(names_from=negative, values_from=amount) |> 
    tfrnma()
}

bydun<-function(dat){
  dat %>% 
    group_by(dunn_status) %>% 
    summarize(amount=sum(amount)) %>% 
    rename(name=dunn_status)
}

abs<-function(oi){
  oi %>% 
    group_by(AGE_BUCKET, bp_category) %>% 
    summarize(amount=sum(amount)) %>% 
    rename(name=AGE_BUCKET)
}


fpmtype<-function(oi){
  oi %>% 
    group_by(spread, bp_category) %>% 
    summarize(amount=sum(amount)) %>% 
    rename(name=spread)
}


byduntype<-function(dat){
  dat %>% 
    group_by(dunn_status, bp_category) %>% 
    summarize(amount=sum(amount)) %>% 
    rename(name=dunn_status)
}


passedleftaggr<- function(dat){
  dat |> 
    filter(e.status %in% c("Passed","Left")) |> 
    mutate(age=ifelse(AGE_BUCKET=="5+ years", "More than 5","Less than 5")) |> 
    mutate(rel.status=ifelse(rel.status=="long past", "More than 60 days","Less than 60 days")) |> 
    group_by(contract_account,rel.status,negative, age, dunn_status) |> 
    summarise(amount=sum(amount))
}

discaggr<- function(dat){
  dat |> 
    filter(e.status %in% c("Discontinued","Dissolved","Bankrupt","Liquidated")) |> 
    mutate(age=ifelse(AGE_BUCKET=="5+ years", "More than 5","Less than 5")) |> 
    mutate(rel.status=ifelse(rel.status=="long past", "More than 60 days","Less than 60 days")) |> 
    group_by(contract_account,rel.status,negative, age, dunn_status) |> 
    summarise(amount=sum(amount))
}