R/utils.R

In rgugik: Search and Retrieve Spatial Data from 'GUGiK'

tryGet = function(code) {
  tryCatch(code,
           error = function(c) {
             message(c)
             return("error")
           },
           warning = function(c) {
             message(c)
             return("warning")
           }
  )
}

err_print = function() {
  msg = paste0("\n", "Conection error.", "\n", "If the problem persists, ",
               "try a different download method from 'download.file()' ",
               "and/or increase timeout 'options(timeout = 600)'.")
  message(msg)
}