Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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_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))
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement