sraDownload <- function(srp){
system("wget -O- 'http://trace.ncbi.nlm.nih.gov/Traces/sra/sra.cgi?save=efetch&db=sra&rettype=runinfo&term=SRP057023' | tr ',' '\t'")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.