R/widget-ca-gave-to-proposition.R

In cwolfsonseeley/discoveryengine: A CADS Prospecting Tool

#' @rdname ca_campaign
#' @export
ca_gave_to_proposition <- function(..., at_least = .01, from = NULL, to = NULL,
                                   support = NULL) {
    props <- prep_dots(...)
    reroute(ca_gave_to_proposition_(props, at_least = at_least,
                                    from = from , to = to, support = support))
}

ca_gave_to_proposition_ <- function(props, at_least = .01,
                                    from = NULL, to = NULL,
                                    support = NULL) {
    if (!is.numeric(at_least)) stop("at_least must be a number")
    if (length(at_least) != 1L) stop("need a single amount for at_least")

    if (is.null(support)) {
        supopp <- NULL
    } else if (support) {
        supopp <- "SUPPORT"
    } else {
        supopp <- "OPPOSE"
    }

    filings <- widget_builder(
        table = "ca_campaign_proposition",
        id_field = "filing_id",
        id_type = "ca_filing_id",
        parameter = string_param("proposition_id", props),
        switches = list(string_switch("position", supopp)),
        schema = "rdata"
    )

    converter_builder(
        filings,
        table = "ca_campaign",
        from = "filing_id", from_type = "ca_filing_id",
        to = "entity_id", to_type = "entity_id",
        switches = list(daterange("rcpt_date", from = from, to = to)),
        aggregate_switches = sum_switch("amount", at_least),
        schema = "rdata"
    )
}