R/display_messages.R

In THartl1/EntrancesDataPackage: Package containing functions to extract data from the ENTRANCES Dataset

#' @title Warning Messages
#' @description Prints all messages from previous functions and deletes them afterwards.
#'
#' @export
#' @examples
#' #displays and then deletes the messages from the function executions
#' display_messages()
display_messages<-function() {
  if(exists("messages")){
    return(messages)
    rm(messages, envir = .GlobalEnv)
  } else {
    print("No messages.")
  }
}