#' @title Show the base information of metid pacakge
#' @description Show the base information of metid pacakge.
#' @author Xiaotao Shen
#' \email{shenxt1990@@outlook.com}
#' @return A ASCII log of metid
#' @importFrom magrittr %>%
#' @importFrom crayon red yellow green bgRed
#' @importFrom stringr str_detect str_extract str_extract_all
#' @importFrom stringr str_replace_all str_replace str_trim str_c str_count
#' @importFrom readr cols read_csv
#' @importFrom pbapply pblapply pboptions
#' @importFrom tibble as_tibble rownames_to_column
#' @importFrom dplyr mutate filter everything select bind_rows left_join pull
#' @importFrom plyr dlply .
#' @importFrom BiocParallel bplapply MulticoreParam SnowParam
#' @importFrom readxl read_xlsx read_xls
#' @importFrom purrr map map2
#' @importFrom ggplot2 aes ggplot geom_point geom_line geom_smooth theme annotate
#' @importFrom ggplot2 geom_abline theme_bw ggsave geom_segment xlim ylim labs
#' @importFrom ggplot2 element_line element_text
#' @importFrom MSnbase readMSData
#' @importFrom ProtGenerics spectra
#' @importFrom masstools ms2_match get_os mz_rt_match read_mzxml read_mgf
#' @importFrom masstools get_spectra_match_score
#' @importFrom stats lm loess predict
#' @importFrom plotly ggplotly
#' @importFrom future plan multisession
#' @importFrom furrr future_map2 future_map
#' @importFrom rstudioapi isAvailable hasFun getThemeInfo
#' @importFrom cli rule symbol cat_line
#' @importFrom progress progress_bar
#' @importFrom tidyr pivot_longer
#' @import utils
#' @import ggplot2
#' @import grDevices
#' @importClassesFrom massdataset mass_dataset
#' @export
#' @examples
#' metid_logo()
metid_logo <- function() {
message("Thank you for using metid!")
message("Version ", metid_version, " (", update_date, ')')
message("More information: metid.tidymass.org")
cat(
c(
" _ _____ ___ ",
" _ __ ___ ___| |_ \\_ \\/ \\",
"| '_ ` _ \\ / _ \\ __| / /\\/ /\\ /",
"| | | | | | __/ |_/\\/ /_/ /_// ",
"|_| |_| |_|\\___|\\__\\____/___,' ",
" "
), sep = "\n")
}
metid_version <-
as.character(utils::packageVersion(pkg = "metid"))
update_date <- as.character(Sys.time())
# library(cowsay)
# # https://onlineasciitools.com/convert-text-to-ascii-art
# # writeLines(capture.output(say("Hello"), type = "message"), con = "ascii_art.txt")
# art <- readLines("logo.txt")
# dput(art)
# metid_logo <-
# c(" _ _____ ___ ", " _ __ ___ ___| |_ \\_ \\/ \\",
# "| '_ ` _ \\ / _ \\ __| / /\\/ /\\ /", "| | | | | | __/ |_/\\/ /_/ /_// ",
# "|_| |_| |_|\\___|\\__\\____/___,' ", " "
# )
# cat(metid_logo, sep = "\n")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.