# NOT RUN {
library(dplyr)
rawr("https://github.com/hadley/vis-eda/blob/master/travel.R")
# Same as above but provided to cat for easy viewing
rawr("https://github.com/hadley/vis-eda/blob/master/travel.R") %>%
cat
# Use on multiple urls
domains <- c("https://github.com/hadley/vis-eda/blob/master/travel.R",
"https://www.tidytextmining.com/sentiment.html",
"https://www.kaggle.com/vrtjso/mercari-eda-more-info-than-you-can-imagine",
"https://www.jtimm.net/2019/04/14/lexical-change-procrustes/")
domains %>% sapply(rawr)
# Write output to a temp file
"https://www.tidytextmining.com/sentiment.html" %>%
rawr(to_file = TRUE)
# Or to a new file (provide a file name)
"https://www.tidytextmining.com/sentiment.html" %>%
rawr(to_file = TRUE, file_path = "yourfile.R")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab