R/resources.R

In oddworldng/RLibINE: R package for obtaining and analyzing open data from INE (Instituto Nacional de Estadistica) API

# 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)
}