R/helper-converter-builder.R

In cwolfsonseeley/discoveryengine: A CADS Prospecting Tool

converter_builder <- function(lb, table,
                              from, from_type = NULL,
                              to, to_type = NULL,
                              parameter = NULL,
                              aggregate_parameter = NULL,
                              switches = NULL,
                              aggregate_switches = NULL,
                              schema = "CDW") {

    if (is.null(from_type)) from_type <- from
    if (is.null(to_type)) to_type <- to

    stopifnot(listbuilder::get_id_type(lb) == from_type)

    # build the where and having clauses
    logic <- build_logic(parameter, aggregate_parameter,
                         switches, aggregate_switches)

    listbuilder::flist_(lb,
                        table = table,
                        from = from,
                        to = to,
                        id_type = to_type,
                        where = logic$where,
                        having = logic$having,
                        schema = schema)
}

converter_builder_custom <- function(
    lb, custom,
    from, from_type = NULL,
    to, to_type = NULL,
    parameter = NULL,
    aggregate_parameter = NULL,
    switches = NULL,
    aggregate_switches = NULL,
    schema = "CDW") {

    if (is.null(from_type)) from_type <- from
    if (is.null(to_type)) to_type <- to

    stopifnot(listbuilder::get_id_type(lb) == from_type)

    # build the where and having clauses
    logic <- build_logic(parameter, aggregate_parameter,
                         switches, aggregate_switches)

    listbuilder::custom_flist(
        lb, custom = custom,
        from = from,
        to = to,
        id_type = to_type,
        where = logic$where,
        having = logic$having
    )
}