R/helper-daterange.R

In cwolfsonseeley/discoveryengine: A CADS Prospecting Tool

date_operator <- function(from, to) {
    if (is.null(from) && is.null(to)) NULL
    else if (is.null(from)) quote(`<=`)
    else if (is.null(to)) quote(`>=`)
    else dateop <- quote(between)
}

daterange <- function(field_name, from, to) {
    from <- resolve_date(from)
    to <- resolve_date(to)

    dateop <- date_operator(from, to)
    if (is.null(dateop)) return(NULL)

    ## allow arbitrary SQL in addition to plain character field names:
    if (inherits(field_name, "sql")) fld <- field_name
    else fld <- as.name(field_name)

    .call <- list(
        dateop,
        fld
    )

    if (!is.null(from)) {
        from <- as.name(paste0("to_date(", from, ", 'yyyymmdd')", sep = ""))
        .call <- c(.call, from)
    }
    if(!is.null(to)) {
        to <- as.name(paste0("to_date(", to, ", 'yyyymmdd')", sep = ""))
        .call <- c(.call, to)
    }

    as.call(.call)
}