R/exit.R

In Stasharofi/ypssc: Yeast-Proteome Secondary-Structure Calculator

####################################################################################################################################
################################## exit ############################################################################################
# >>
exit <- function() {
    opt = options(show.error.messages = FALSE)
    on.exit(options(opt))
    stop()
}
# <<
################################## exit ############################################################################################
####################################################################################################################################


####################################################################################################################################
################################## exit (old) ######################################################################################
# >>
# exit <- function() {
#     .Internal(.invokeRestart(list(NULL, NULL), NULL))
# }
# <<
################################## exit (old) ######################################################################################
####################################################################################################################################