Nothing
ViewLatestTime <-
function(){
temp<-getURL("http://www.kegg.jp/kegg-bin/download?entry=hsa04010&format=kgml")
UpdateTime<-substr(temp,100,151)
return(UpdateTime)
}
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.