#' @title Display a summary of the latest paid file
#' @return Prints the contents to the console
#' @author R.J.B. Goudie
#' @export
display_paid <- function(){
display_check("paid")
}
#' @title Display a summary of the latest used file
#' @return Prints the contents to the console
#' @author R.J.B. Goudie
#' @export
display_used <- function(){
display_check("used")
}
#' @title Display the most recent used/paid file
#' @param directory A character, either "used" or "paid"
#' @return Prints the contents to the console
#' @author R.J.B. Goudie
display_check <- function(directory){
new <- load_new_people_latest_acconut(directory)
existing <- load_penultimate_people_latest_account(directory)
existing <- subset(existing,
select = c("unique_id", "display_name", "amount"))
existing <- sort_by_display_name(filter_zeros(existing))
new <- subset(new, select = c("unique_id", "display_name", "amount"))
new <- sort_by_display_name(filter_zeros(new))
existing_print <- print_data_frame(existing)
new_print <- print_data_frame(new)
message("NEW PEOPLE:")
cat(new_print)
message("EXISTING PEOPLE")
cat(existing_print)
}
#' @title Display summary of used and paid over the last month
#' @return A summary of used and paid over the last month
#' @author R.J.B. Goudie
#' @export
display_summary <- function(){
last_used <- load_directory_latest("used")
last_paid <- load_directory_latest("paid")
used_last_month <- sum(last_used$amount)/100
paid_last_month <- sum(last_paid$amount)/100
message("Summary:")
message("Used last month: £", used_last_month)
message("Paid last month: £", paid_last_month)
message("")
}
#' @title Display balances
#' @return A data.frame of balances. Each row corresponds to a person.
#' The columns are "unique_id", "display_name", "balance". Balance is in pounds.
#' @author R.J.B. Goudie
#' @export
display_balances <- function(){
# Note that people NOT on the most recent people file are dropped!
balance_df <- account_balances()
out <- subset(balance_df, select = c("unique_id", "display_name", "balance"))
sort_by_display_name(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.