# NOT RUN {
# http://stackoverflow.com/questions/15853204
s <- html_session("http://hadley.nz")
s %>% jump_to("hadley-wickham.jpg") %>% jump_to("/") %>% session_history()
s %>% jump_to("hadley-wickham.jpg") %>% back() %>% session_history()
# }
# NOT RUN {
s %>% follow_link(css = "p a")
# }
Run the code above in your browser using DataLab