# NOT RUN {
s <- session("http://hadley.nz")
s %>%
session_jump_to("hadley-wickham.jpg") %>%
session_jump_to("/") %>%
session_history()
s %>%
session_jump_to("hadley-wickham.jpg") %>%
session_back() %>%
session_history()
# }
# NOT RUN {
s %>%
session_follow_link(css = "p a") %>%
html_elements("p")
# }
Run the code above in your browser using DataLab