Nothing
# Package: rdyncall
# File: demo/Win32PlaySound.R
# Description: Win32 Demo, playing a wav file (dynbind demo)
if (.Platform$OS.type == "windows") {
dynbind("winmm", "PlaySoundA(Zii)v;", callmode="stdcall")
tada <- paste( Sys.getenv("SystemRoot"), "\\Media\\tada.wav", sep="" )
PlaySoundA(tada,0,0)
} else {
cat("This demo is runnable on windows only.")
}
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.