vbs_gui<-function(){
LNKcreateVBS <- system.file(package="launch",path="vbs/gui.vbs")
shell(paste("Cscript //B ",shQuote(LNKcreateVBS),sep=" "))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.