R/instantFXPrice.R

In enesn/rBIST: R/BIST

#' Fetch FX instantPrice
#'
#' Fetches price data from instant price service
#'
#' @param currency A character value that you can use ticker.
#'
#' @return A numeric value.
#' @seealso \code{\link{fBIST},\link{finTables}}
#' @export
instantFXPrice<-function(currency){
  src<-paste0("https://www.google.com/finance?q=",currency,"try")
  html<-read_html(src)
  node<-html_nodes(html,".pr .bld")
  text<-html_text(node)
  tmp<-gsub(pattern = "TRY","",text)
  output<-as.numeric(tmp)
  output
}