standalone_spectrogram.R

library(RCurl)

# download the R code
script <- getURL("https://raw.githubusercontent.com/usagi5886/dsp/master/Spectrogram().r",
                 ssl.verifypeer = FALSE)
# load it as a function
eval(parse(text = script))

library(audio)
# download the wav file
url <- "http://soundbible.com/grab.php?id=1850&type=wav"
destination <- "dove_sound.wav"
download.file(url, destination, mode = "wb")

soundfile <- load.wave("dove_sound.wav")
Spectrogram(soundfile)