Nothing
createIcon <- function(InstallRoot, ApplData, Location, WinEdtVersion){
tmpfile <- paste(tempfile(), "vbs", sep=".")
ico <- normalizePath(file.path(system.file(package="RWinEdt"), "PlugIn", "R-WinEdt.ico"))
## constructing temporary VB script to add a link:
write(c('set WshShell = WScript.CreateObject("WScript.Shell")',
paste('where = WshShell.SpecialFolders(', shQuote(Location), ')', sep = ""),
'set oShellLink = WshShell.CreateShortcut(where & "\\RWinEdt.lnk")',
paste('oShellLink.TargetPath =', shQuote(normalizePath(file.path(InstallRoot, "WinEdt.exe")))),
paste('oShellLink.IconLocation =', shQuote(paste(ico, ", 0", sep = ""))),
'oShellLink.Description = "RWinEdt"',
paste('oShellLink.WorkingDirectory =', shQuote(normalizePath(getwd()))),
if(WinEdtVersion < 6) paste('oShellLink.Arguments = "-E="&chr(34)&',
shQuote(normalizePath(file.path(ApplData, "R.ini"))),
'&chr(34)&" "&"-C="&chr(34)&"R-WinEdt"&chr(34)',
sep=""),
'oShellLink.Save'),
file = tmpfile)
shell.exec(tmpfile)
}
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.