load.wave <- function(where) invisible(.Call(load_wave_file, where, PACKAGE="audio"))
save.wave <- function(what, where) invisible(.Call(save_wave_file, where, what, PACKAGE="audio"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.