# get page links
get_page_links <- function(url){
require(httr)
require(dplyr)
require(rvest)
links <- GET(url) %>%
read_html() %>%
html_nodes("a") %>%
html_attr("href")
return(links)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.