R/convert_to.R

In rb3: Download and Parse Public Data Released by B3 Exchange

#' Converts B3 messy files to structured formats
#'
#' Convert B3 files to structured formats based on the template.
#'
#' @param filename a string containing a path for the file.
#' @param template a string with the template name.
#' @param parse_fields a logical indicating if the fields must be parsed.
#' @param format output format
#' @param destdir a string with destination directory to save converted file
#'
#' @return a string with the file path of generated file.
#'
#' @seealso read_marketdata
#'
#' @examples
#' \dontrun{
#' f <- system.file("extdata/Indic.txt", package = "rb3")
#' res <- convert_to(f, output_format = "csv")
#' res <- convert_to(f, output_format = "json")
#' }
#' @export
convert_to <- function(filename, template = NULL, parse_fields = TRUE,
                       format = "csv", destdir = NULL) {
  template <- .retrieve_template(filename, template)
  fname <- Filename(name = filename)
  df <- template$read_file(filename, parse_fields)
  new_filename <- fname$changeExt(paste0(".", format), destdir)
  if (format == "csv") {
    write.table(df,
      file = new_filename, sep = ",", dec = ".",
      row.names = FALSE
    )
  } else if (format == "json") {
    writeLines(toJSON(df), new_filename)
  }
  new_filename
}