Nothing
Append <-
function(){
ssdA<-read.table(file.choose(),header=TRUE,sep=',')
ssdB<-read.table(file.choose(),header=TRUE,sep=',')
ssdC<-rbind(ssdA,ssdB)
# {write.csv(ssdC,file = file.choose(new = T),row.names=FALSE)}
{write.csv(ssdC,file = file.choose(new = TRUE),row.names=FALSE)}
}
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.