Nothing
getTD4Affy<-function(genenames,cdfname,isMap=FALSE){
tmp<-paste("https://www.affymetrix.com/analysis/netaffx/",if(isMap) "mapping",
"fullrecord.affx?pk=",cdfname,":",genenames,sep="")
td<-paste("<TD><A HREF=\"",tmp,"\">",genenames,"</A></TD>",sep="")
td
}
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.