R/functions_helpers.R

In gruporofex/rRofex: Interface to 'Matba Rofex' Trading API

# Helper Functions ---------------------------

#' @title Helper: Date validation
#'
#' @description
#' \Sexpr[results=rd, stage=render]{lifecycle::badge("questioning")}
#' Validate date
#'
#' @param date Date
#' @return TRUE if date has a correct format.
.validate_fecha <- function(date) {
  tryCatch({!is.na(format.Date(x = date, "%Y-%m-%d"))}, error = function(e) {FALSE})
}