# NOT RUN {
library(httr)
url <- "https://bits.blogs.nytimes.com/2013/04/07/the-potential-and-the-risks-of-data-science"
response <- GET(url)
html_document <- content(response, type = "text", encoding = "UTF-8")
meta_data <- extract_meta_data(html_doc = html_document)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab