R/pkg.R

In DataEntry: Make it Easier to Enter Questionnaire Data

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()
        }
    }
}