R/read_statements.R

In eteppo/r-nordea-tools: Finnish Nordea bank data analysis

#' Read and clean many Finnish Nordea bank statement pdf-files at once.
#'
#' This is just a convenient wrapper of \code{read_statement} (singular).
#'
#' @param directory A full path to the directory including the pdf-files of interest.
#'
#' @importFrom dplyr "%>%"
#' @export

read_statements <- function(directory) {

    data <- directory %>%
        stringr::str_c(dir(directory)) %>%
        stringr::str_subset(".pdf") %>%
        purrr::map_dfr(rnordeatools::read_statement) %>%
        dplyr::arrange(record_date)

    return(data)
}