R/helper.R

In pat-s/ppcryptoparser: Portfolio Performance Crypto Currency Staking Parser

#' Decimal helper function
#' @keywords internal
#' @export
helper_dec <- function(dec, pp_lang) {
  if (is.null(dec) && pp_lang == "DE") {
    cli::cli_alert_info("Setting decimal separator to {.code ,} because
      {.code pp_lang = 'DE'} is set.
      If this is undesired and/or you want to silence this warning, please
      explicitly set argument {.code dec}.", wrap = TRUE)
    dec <- ","
  } else if (is.null(dec) && pp_lang == "EN") {
    cli::cli_alert_info("Setting decimal separator to {.code .} because
      {.code pp_lang = 'EN'} is set.
      If this is undesired and/or you want to silence this warning, please
      explicitly set argument {.code dec}.", wrap = TRUE)
    dec <- "."
  }
  return(dec)
}

#' CSV writer helper function
#' @keywords internal
#' @importFrom utils write.table
#' @export
write_csv_helper <- function(data, filename, dec, sep) {
  if (dec == ".") {
    utils::write.table(data, filename, dec = dec, row.names = FALSE, sep = sep)
  } else if (dec == ",") {
    utils::write.table(data, filename, dec = dec, row.names = FALSE, sep = sep)
  } else {
    utils::write.table(data, filename, row.names = FALSE, sep = sep)
  }
}