R/api_convert.R

In rscorecard: A Method to Download Department of Education College Scorecard Data

api_convert <- function(filters) {
    ## convert rhs
    filters[3] <- ifelse(exists(gsub('(^.+)\\[.*\\]$', '\\1',
                                     deparse(filters[[3]])),
                                envir = globalenv()) == TRUE,
                         # & sum(grepl(':', filters[[3]], fixed = TRUE)) == 0,
                         paste(eval(filters[[3]], envir = globalenv()),
                               collapse = ','),
                         filters[3])
    filters[3] <- gsub('c\\((.+)\\)', '\\1', filters[3])
    filters[3] <- gsub('\\"|\\\'', '', filters[3])
    filters[3] <- gsub(', ', ',', filters[3])
    filters[3] <- gsub(' ', '%20', filters[3])
    filters[3] <- gsub(':', '..', filters[3])

    ## convert operator
    filters[1] <- as.character(filters[[1]])
    filters[1] <- gsub('%in%', '=', filters[1])
    filters[1] <- gsub('==', '=', filters[1])
    filters[1] <- gsub('!=', '__not=', filters[1])
    filters[1] <- ifelse(grepl('..', filters[3], fixed = TRUE),
                        gsub('=', '__range=', filters[1]),
                        filters[1])

    ## paste
    filters[[2]] %+% filters[[1]] %+% filters[[3]]
}