R/get_handle.R

In aljrico/rfinance: Set of Tools for Financial Analysis

#' Gets a Handle Object
#' @description This function establishes a connection with the API
#' @keywords internal 
get_handle <- function(){
  
  # establish session
  new_session <- function() {
    for (i in 1:3) {
      h <- curl::new_handle()
      curl::handle_setopt(h)
      
      # random query to avoid cache
      random_url <- paste(sample(c(letters, 0:9), 4), collapse = "")
      cu <- paste0("https://finance.yahoo.com?", random_url)
      z <- curl::curl_fetch_memory(cu, handle = h)
      if (nrow(curl::handle_cookies(h)) > 0){
        break
      }

      Sys.sleep(0.1)
    }
    
    if (NROW(curl::handle_cookies(h)) == 0)
      stop("Could not establish session after 3 attempts.")
    closeAllConnections()
    return(h)
  }
  
  my_session <- new_session()
  n <- sample(1:2, 1)
  query_url <- glue::glue("https://query{n}.finance.yahoo.com/v1/test/getcrumb")
  cres <- curl::curl_fetch_memory(query_url, handle = my_session)
  content <- rawToChar(cres$content)
  closeAllConnections()
  return(list(session = my_session, content = content))
}