idoutput <- function(x){
tls <- x %>%
html_nodes("p.mainAutDatN") %>%
html_text() %>%
as.numeric()
l <- list(narticles = tls[1],
npapers = tls[2])
return(l)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.