Nothing
checkInstallation <- function(){
if(.Platform$OS.type == "windows"){
chk <- file.exists("c:/QuasiMC/enviro.e") & file.exists("c:/QuasiMC/QuasiMC.exe")
}
else if (Sys.info()[['sysname']] == "Darwin") {
qmc_dir = paste(path.expand("~"),"/QuasiMC/",sep="")
chk <- file.exists(paste(qmc_dir,"enviro.e",sep="")) & file.exists(paste(qmc_dir,"QuasiMC.app",sep=""))
}
else {
return(FALSE)
}
return(chk)
}
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.