if (interactive()) {
if(Sys.info()["sysname"] != "Windows") {
win_launcher()
fn <- paste0(Sys.getenv("USERPROFILE") ,"/Desktop/radiant.bat")
if(!file.exists(fn))
stop("Windows launcher not created")
else
unlink(fn)
}
}
Run the code above in your browser using DataLab