# API INE (Resources)
#
# Author: Andres Nacimiento Garcia <andresnacimiento@gmail.com>
# Project Director: Carlos J. Perez Gonzalez <cpgonzal@ull.es>
get_content <- function(url, loop = 1, max_iterations = 10, seconds = 60, verbose = TRUE) {
# Print URL
if (verbose) {
print(url)
}
content <- NULL
# Get URL content and catch errors using tryCatch
result <- tryCatch({
content <- fromJSON(url)
}, error = function(err) {
# error handler picks up where error was generated
print(paste("ERROR: ",err))
print(paste0("[", loop, "/", max_iterations, "] Waiting ", seconds, " seconds for try it again..."))
Sys.sleep(seconds)
# Try it X times
if (loop == max_iterations) {
return(NULL)
} else {
get_content(url, loop + 1, max_iterations, seconds)
}
}) # END tryCatch
return(content)
}
# Example: parse_param("PoblaciĆ³n residente (Personas). ")
parse_param <- function(param) {
param <- trimws(param) # Remove white spaces
param <- gsub("[(]", "[(]", param) # Replace ( for [(]
param <- gsub("[)]", "[)]", param) # Replace ) for [)]
return(param)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.