proxy.r

In lina2497/demeter_proxy: Functions for connectivity on Demeter

#This Script will allow you to connect to API's and webscrape on demeter.


proxy_connect<-function(show_characters=FALSE){
  
  #Asks for username
  ifelse(
    show_characters,
    username <-
      readline(prompt = "Enter Username:"),
    username <- getPass::getPass(msg = "Username", noblank = T)
  )
  
  #Asks for password
  ifelse(
    show_characters,
    password <-
      readline(prompt = "Enter Password:"),
    password <- getPass::getPass(msg = "Password", noblank = T)
  )
  
  
  #This combines your username and password with the IP address of the proxy
  proxy_address<-paste0("http://",username,":",password,"@148.253.235.216:80")
  
  #This creates envirnmnet variables with the proxy details allowing R to connect.
  Sys.setenv(http_proxy=proxy_address,
             https_proxy=proxy_address)
}



lazy_proxy_connect<-function(username="m123456",password="password"){
  
  #I've called this function lazy because it will allow the user
  #to save their username and password in an r script
  #and not have to type it in each time. 
  #Writing your password down is generally a bad idea but this function
  #may be useful for automation. I reccomend saving your credentials in 
  #an .rdata or .rds of a list(username = x, password = x) then reading it in.
  #This way your password won't be visible on your screen whilst you work.
  
  
  #This combines your username and password with the IP address of the proxy
  proxy_address<-paste0("http://",username,":",password,"@148.253.235.216:80")
  
  #This creates envirnmnet variables with the proxy details allowing R to connect.
  Sys.setenv(http_proxy=proxy_address,
             https_proxy=proxy_address)
}