acs_catcher.R

acs_catcher <- function(tbl, state, year=2017 ){
    done = FALSE
    while(!done){
        out <- tryCatch(
            {
                x = get_acs(geography = "tract", state = state, table = tbl, year = year,keep_geo_vars = TRUE,cache_table = TRUE)
                done = TRUE
                return(x)
            },
            error = function(e) {
                flog.error("repeating state %s",state)
                done = FALSE
                e}
        )
    }
    return(out)
}