#' Fetch XU100 instantPrice
#'
#' Fetches price data from instant price service
#'
#' @param symbol A character value that you can use ticker.
#'
#' @return A numeric value.
#' @seealso \code{\link{fBIST},\link{finTables}}
#' @export
instantPrice<-function(symbol){
src<-paste0("https://www.google.com/finance?q=",symbol)
html<-read_html(src)
node<-html_nodes(html,".pr span")
text<-html_text(node)
output<-as.numeric(text)
output
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.