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