R/helper-utils.R

In tarakc02/discoveryengine: A CADS Prospecting Tool

prep_dots <- function(...) {
    res <- lazyeval::lazy_dots(..., .follow_symbols = FALSE)

    # dots should not be named, usually happens b/c user was trying to use
    # a switch but had a typo or said switch doesn't exist.

    argnames <- unique(names(res))
    argnames <- Filter(function(x) x != "", argnames)
    if (length(argnames) > 0)
        stop("Unrecognized argument(s): ", paste(argnames, collapse = ", "),
             call. = FALSE)
    res
}

partial_sub <- function(param) {
    #reenv <- function(env) {
    # newenv <- as.environment(as.list(env))
    # parent.env(newenv) <- emptyenv()
    # newenv
    # env
    #}
    rlang::as_string(param[[1]]$expr)
}