R/metPath_logo.R

In jaspershen/metPath: Pathway analysis for metabolomics data

#' @title metPath_logo
#' @description Get the detailed of metPath package.
#' @author Xiaotao Shen
#' \email{shenxt@@stanford.edu}
#' @importFrom KEGGREST keggList keggGet
#' @importFrom pbapply pblapply
#' @importFrom future plan multisession
#' @importFrom furrr future_map
#' @importFrom metID construct_database
#' @importFrom stringr str_replace str_split str_replace_all str_trim
#' @importFrom crayon yellow red num_colors blue col_align col_nchar
#' @importFrom dplyr filter mutate select everything case_when
#' @importFrom purrr map
#' @importFrom openxlsx write.xlsx
#' @importFrom rstudioapi isAvailable hasFun getThemeInfo
#' @importFrom utils packageDescription
#' @import ggplot2 
#' @import ggraph
#' @importFrom tidygraph tbl_graph
#' @importFrom ggrepel geom_text_repel
#' @importFrom methods .hasSlot new
#' @importFrom stats p.adjust fisher.test phyper
#' @importFrom utils data str
#' @importFrom magrittr %>%
#' @export

metPath_logo <- function(){
  cat(crayon::green("Thank you for using metPath!\n"))
  cat(crayon::green("Version 0.0.1 (20200406)\n"))
  cat(crayon::green("More information can be found at https://jaspershen.github.io/metPath/\n"))
  cat(crayon::green(
    c("                 _   _____      _   _     ", "                | | |  __ \\    | | | |    ",
      "  _ __ ___   ___| |_| |__) |_ _| |_| |__  ", " | '_ ` _ \\ / _ \\ __|  ___/ _` | __| '_ \\ ",
      " | | | | | |  __/ |_| |  | (_| | |_| | | |", " |_| |_| |_|\\___|\\__|_|   \\__,_|\\__|_| |_|",
      "                                          ", "                                     "
    )

  ), sep = "\n")
}