R/format_data.R

In pgstevenson/borrowr: Home loan helper

#' @title Convert data character formats to ate
#'
#' @description
#' Converts the loan_start, rate$date, payments$date and offsets$date JSON character objects to date format. Also converts 2-dimensional vectors into tibble.
#'
#' @param data list containing BorrowR data.
#'
#' @return list with changed data formats.
#'
#' @export
format_data <- function(data) {

  library(tibble)
  library(lubridate)

  data$loan_start <- ymd(data$loan_start)
  data$rates$date <- ymd(data$rates$date)
  data$payments$date <- ymd(data$payments$date)
  data$offsets$date <- ymd(data$offsets$date)

  data$rates <- tbl_df(data$rates)
  data$payments <- tbl_df(data$payments)
  data$offsets <- tbl_df(data$offsets)

  data
}