bioacoustica.tools.loadWaveDemo <-
function() {
# demofile <- "http://bio.acousti.ca/sites/bio.acousti.ca/files/Mole%20Cricket%2019-05-2014%20clip%20three%20%283%29%20%20BRIAN%20HARRISON.wav";
demofile <- "http://bio.acousti.ca/sites/bio.acousti.ca/files/13%20Track%2013_web.wav";
demofilename <- "molecricket.wav";
download.file(demofile, destfile=demofilename);
wave <- readWave(demofilename);
return (wave);
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.