# NOT RUN {
library(dplyr)
datacamp("https://www.datacamp.com/community/tutorials/sentiment-analysis-R")
datacamp("https://www.datacamp.com/community/tutorials/R-nlp-machine-learning")
# Same as above but provided to cat for easy viewing
datacamp("https://www.datacamp.com/community/tutorials/sentiment-analysis-R") %>%
cat
datacamp("https://www.datacamp.com/community/tutorials/R-nlp-machine-learning") %>%
cat
# If datacamp() doesn't return a sensible result, try another method
"https://www.datacamp.com/community/tutorials/keras-r-deep-learning" %>% datacamp(.) %>% cat
# no result
# Let's try another method
"https://www.datacamp.com/community/tutorials/keras-r-deep-learning" %>%
datacamp(method = 2) %>%
cat # from inspection of output we see this method returns code correctly
# Note that rawr::rawr() has the same capability
"https://www.datacamp.com/community/tutorials/keras-r-deep-learning" %>%
rawr(method = 2) %>% cat
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab