Nothing
writeOUTfile <- function(yplantsim){
if(!inherits(yplantsim, "yplantsim"))
stop("Need object output by YplantDay.")
pfile <- yplantsim$plant$pfile
proot <- gsub("\\.p$","",pfile, ignore.case=TRUE)
filen <- paste0(proot,"-YplantQMC.OUT")
write.table(yplantsim$outdata, filen, sep="\t", quote=FALSE, row.names=FALSE)
message("Results written to file: ", filen)
return(invisible(filen))
}
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.