Nothing
f <- feat(seqname=c("chr1", "chr1", "chr1", "chr1", "chr2"),
start=c(1, 11, 21, 100, 1),
end=c(3, 13, 23, 102, 3),
score=runif(5))
write.wig.feat(f)
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.