Nothing
gethtml <- function(url){
repeat{
ret <- try(rvest::read_html(url),silent=T)
if('try-error' %in% class(ret)){
next
}else{
html <- ret
break
}
}
return(html)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.