add citation

Author: xiangpin

DESCRIPTION

@@ -18,7 +18,8 @@ Imports:
   magrittr,
   methods,
   utils,
-  yulab.utils (>= 0.1.9)
+  yulab.utils (>= 0.1.9),
+  pillar
 Suggests:
   ggtree  
 URL: https://github.com/YuLab-SMU/aplot, https://yulab-smu.top/aplot/

NAMESPACE

@@ -66,4 +66,6 @@ importFrom(patchwork,patchworkGrob)
 importFrom(patchwork,plot_annotation)
 importFrom(patchwork,plot_layout)
 importFrom(patchwork,plot_spacer)
+importFrom(pillar,style_subtle)
 importFrom(utils,modifyList)
+importFrom(utils,packageDescription)

R/zzz.R

@@ -0,0 +1,30 @@
+#' @importFrom utils packageDescription
+#' @importFrom pillar style_subtle
+.onAttach <- function(libname, pkgname) {
+    pkgVersion <- packageDescription(pkgname, fields="Version")
+    msg <- paste0(pkgname, " v", pkgVersion, "  ",
+                  "For help: https://github.com/YuLab-SMU/aplot/issues", "\n\n")
+
+    citation <- paste0("If you use ", pkgname,
+                       " in published research, please cite the paper:\n\n",
+                       aplot_citations())
+    
+    packageStartupMessage(paste0(strwrap(pillar::style_subtle(paste0(msg, citation, suppressmsg(pkgname)))), collapse="\n"))
+}
+
+aplot_citations <- function(){
+    paste("Shuangbin Xu, Qianwen Wang, Shaodi Wen, Junrui Li, Nan He, Ming Li, Thomas Hackl, Rui Wang,
+          Dongqiang Zeng, Shixiang Wang, Shensuo Li, Chunhui Gao, Lang Zhou, Shaoguo Tao, Zijing Xie,
+          Lin Deng, and Guangchuang Yu.",
+          "aplot: Simplifying the creation of complex graphs to visualize associations across diverse data types.",
+          "The Innovation. 2025, 6(9):100958. doi: 10.1016/j.xinn.2025.100958\n\n",
+          "Export the citation to BibTex by citation('aplot')\n\n"
+    )    
+    
+}
+
+suppressmsg <- function(pkgname){
+    paste0("This message can be suppressed by:\n",
+        "suppressPackageStartupMessages(library(", pkgname ,"))"
+    )
+}