You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
106 lines
2.4 KiB
106 lines
2.4 KiB
#' 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))
|
|
}
|
|
|
|
|
|
|