Sys.getenv("CENSUS_API_KEY")
[1] "1e04bf9ac5bbae0d7060b9cdefeb1ba143752a1e"
acs_data <- get_acs(geography = "county", variables = "B19013_001", state = "CA", survey = "acs5")
Getting data from the 2012-2016 5-year ACS
Using FIPS code '06' for state 'CA'
summary(acs_data)
    GEOID               NAME             variable            estimate           moe       
 Length:58          Length:58          Length:58          Min.   : 35270   Min.   :  331  
 Class :character   Class :character   Class :character   1st Qu.: 45622   1st Qu.:  986  
 Mode  :character   Mode  :character   Mode  :character   Median : 54708   Median : 1620  
                                                          Mean   : 58091   Mean   : 2104  
                                                          3rd Qu.: 66757   3rd Qu.: 2701  
                                                          Max.   :101173   Max.   :11767  

LS0tCnRpdGxlOiAiQ2Vuc3VzIC0gQW1lcmljYW4gQ29tbXVuaXR5IFN1cnZleSBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkodGlkeWNlbnN1cykKIyBsb2FkcyBBUEkgS2V5CnJlYWRSZW52aXJvbigifi8uUmVudmlyb24iKQpgYGAKCmBgYHtyIHN0YXRlQ291bnR5SW5jb21lfQphY3NfZGF0YSA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJjb3VudHkiLCB2YXJpYWJsZXMgPSAiQjE5MDEzXzAwMSIsIHN0YXRlID0gIkNBIiwgc3VydmV5ID0gImFjczUiKQpzdW1tYXJ5KGFjc19kYXRhKQpgYGAKYGBge3Igdml6U3RhdGVDb3VudHlJbmNvbWV9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHZpcmlkaXMpCnZpeiA8LSBhY3NfZGF0YSAlPiUKbXV0YXRlKE5BTUUgPSBnc3ViKCIgQ291bnR5LCBDYWxpZm9ybmlhIiwgIiIsIE5BTUUpKSAlPiUKIGdncGxvdChhZXMoeCA9IGVzdGltYXRlLCB5ID0gcmVvcmRlcihOQU1FLCBlc3RpbWF0ZSkpKSArCiAgZ2VvbV9lcnJvcmJhcmgoYWVzKHhtaW4gPSBlc3RpbWF0ZSAtIG1vZSwgeG1heCA9IGVzdGltYXRlICsgbW9lKSkgKwogIGdlb21fcG9pbnQoY29sb3IgPSAicmVkIiwgc2l6ZSA9IDMpICsKICBsYWJzKHRpdGxlID0gIkhvdXNlaG9sZCBpbmNvbWUgYnkgY291bnR5IGluIENhbGlmb3JuaWEiLAogICAgICAgc3VidGl0bGUgPSAiMjAxMi0yMDE2IEFtZXJpY2FuIENvbW11bml0eSBTdXJ2ZXkiLAogICAgICAgeSA9ICIiLAogICAgICAgeCA9ICJBQ1MgZXN0aW1hdGUgKGJhcnMgcmVwcmVzZW50IG1hcmdpbiBvZiBlcnJvcikiKQp2aXoKYGBg