.onAttach <- function(libname, pkgname) {

  # Display ASCII art

  ascii_art_path <- system.file("extdata", "ascii_art.txt", package = "TransProR")

  if (file.exists(ascii_art_path)) {

    ascii_art_lines <- readLines(ascii_art_path)

    ascii_art <- paste(ascii_art_lines, collapse = "\n")

    packageStartupMessage(ascii_art)

  } else {

    packageStartupMessage("Welcome to TransProR!")

  }

}