Nothing
karaoke<-function(infile=NULL, outfile=NULL, sampf=NULL) {
wobj<-readWave(infile)
wl<-mono(wobj, "left")
wr<-mono(wobj, "right")
wobj<-wl-wr
wobj<-stereo(wobj,wobj)
savewav(wobj,f=sampf,filename=outfile)
}
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.