# NOT RUN {
library(tidyqwi)
library(httr)
# A single call to the API without an API Key
url <- "api.census.gov/data/timeseries/qwi/sa?get=Emp&for=county:198&key=NOKEY"
single_call <- httr::GET(url)
# Because a non valid API key was specified an message will be returned
check_census_api_call(single_call)
# }
Run the code above in your browser using DataLab