R/format_JSON.R

In pgstevenson/borrowr: Home loan helper

#' @title Convert data date formats to character
#'
#' @description
#' Converts the loan_start, rate$date, payments$date and offsets$date date objects to chracter format.
#'
#' @param data list containing BorrowR data.
#'
#' @return list with changed data formats.
#'
#' @export
format_JSON <- function(data) {

  data$loan_start <- as.character(data$loan_start)
  data$rates$date <- as.character(data$rates$date)
  data$payments$date <- as.character(data$payments$date)
  data$offsets$date <- as.character(data$offsets$date)

  data
}