Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(rvest)
- webpage <- data.frame("https://www.bloomberg.com/quote/INDU:IND")
- z <- sapply(webpage, function(url){ url %>% as.character() %>% read_html() %>% html_nodes(xpath = '//meta[@itemprop="price"]') %>% html_attr('content')})
- (z <- as.character.numeric_version(z))
Add Comment
Please, Sign In to add comment
