R/zzz.R

In TimTeaFan/loopurrr: Tranlate purrr iterator functions to regular for loops

.onAttach <- function(libname, pkgname) {

  # check
  is_rstudio <- .Platform$GUI == "RStudio"
  has_rstudioapi <- requireNamespace("rstudioapi", quietly = TRUE)
  is_linux <- Sys.info()["sysname"] == "Linux"
  has_clipr <- requireNamespace("clipr", quietly = TRUE)
  output_opt <- get_output_opt()

  msg <-
    if (is_rstudio && !has_rstudioapi && !has_clipr) {
        paste0("The {rstudioapi} and the {clipr} package are highly recommended for additional output options.\n",
               "Both packages are currently not installed.")
      } else if (is_rstudio && !has_rstudioapi && has_clipr) {
        paste0("The {rstudioapi} package is highly recommended for additional output options.\n",
               "The {rstudioapi} package is currently not installed.")

      } else if (!is_rstudio && !has_clipr) {
        paste0("The {clipr} package is highly recommended for additional output options.\n",
               "The {clipr} package is currently not installed.",
              if (is_linux) {
                "\n\nAs a linux user you might need to install xsel or xclip on your system (not in R) to use clipboard contents."}
            )
    } else NULL

  if(!is.null(msg)){
    packageStartupMessage(msg)
  }
}