DEenv <- new.env()
.onAttach <- function(...){
if(interactive()){
startnow <- FALSE
if(is.null(getOption("DataEntry.autostart"))){
startnow <- TRUE
} else {
if(getOption("DataEntry.autostart") == TRUE)
startnow <- TRUE
}
if(startnow){
packageStartupMessage(paste0("\nDataEntry ",
as.character(utils::packageVersion("DataEntry")), "\n",
gettext("If necessary, type 'DataEntry()' to start the application again.",
domain = "R-DataEntry"), "\n"))
DataEntry()
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.