utils.R

is_logical <- function(x) {
    is.logical(x) && length(x) && !is.na(x)
}


format_dates <- function(x) {
    fechas_metadatos <- startsWith(colnames(x), "fecha_")
    x[fechas_metadatos] <- lapply(x[fechas_metadatos],
                                          as.POSIXct, format = "%Y%m%d%H%M%S",
                                          tz = "CET")
    if (!is.null(x$fecha_disposicion)) {
        x$fecha_disposicion <- as.Date(x$fecha_disposicion)
    }
    if (!is.null(x$fecha_publicacion)) {
        x$fecha_publicacion <- as.Date(x$fecha_publicacion)
    }
    x
}

format_date <- function(date){
    if (is(date, "Date")) {
        date <- format(date, "%Y%m%d")
    } else if (is.numeric(date)) {
        date <- as.character(date)
    }
    date
}

check_limit <- function(limit) {
    if (!is.numeric(limit)) {
        stop("Limit must be a numeric number from -1 to higher numbers", call. = FALSE)
    }
    if (limit < -1L) {
        stop("Limit can only be between [-1, Inf]", call. = FALSE)
    }
}

check_offset <- function(offset) {
    if (!is.numeric(offset)) {
        stop("Offset must be a numeric number higher than 1.", call. = FALSE)
    }
    if (offset <= 0L) {
        stop("Offset must be a postivie number", call. = FALSE)
    }
}