Nothing
writeGhcn <- function(data,directory = DATA.DIRECTORY,filename = "TaveCHCN.dat"){
fname <- file.path(directory,filename,fsep = .Platform$file.sep)
write.table(data,fname)
}
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.