Proxy Configuration

Config_proxy.R

# Read a pasword using a prompt
read_Password <- function(prompt) {
  if (requireNamespace("rstudioapi")) {
    pwd <- rstudioapi::askForPassword(prompt)
  } else if (exists(".rs.askForPassword")) {
    pwd <- .rs.askForPassword(prompt)
  } else {
    pwd <- readline(prompt)
  }
  return (pwd)
}

# set proxy configuration for httr functions
set_config_proxy <- function(url, port, username, password = NULL, verbose = F){
  if (is.null(password)) {
    password <- read_Password("Enter a password for passing your proxy:")
  } else {
    if (verbose) {
      message("Using provided password. Your password will seen in clear in your history command.")
    }
  }

  httr::set_config(
    httr::use_proxy(url = url,
                    port = port,
                    username = username,
                    password = password))
}