Browse code

startup msg

guangchuang yu authored on 09/11/2016 04:34:38
Showing 1 changed files

  • R/zzz.R index fa4565b..7782e47 100644
... ...
@@ -1,8 +1,11 @@
1 1
 .onAttach <- function(libname, pkgname) {
2
-    ##	pkgVersion <- packageDescription(pkgname, fields="Version")
3
-    msg <- paste0("If you use ggtree in published research, please cite:\n\n",
4
-                  "Guangchuang Yu, David Smith, Huachen Zhu, Yi Guan, Tommy Tsan-Yuk Lam.\n",
5
-                  "ggtree: an R package for visualization and annotation of phylogenetic trees with their covariates and other associated data.\n",
6
-                  "Methods in Ecology and Evolution 2016, doi:10.1111/2041-210X.12628\n\n")
7
-    packageStartupMessage(msg)
2
+    pkgVersion <- packageDescription(pkgname, fields="Version")
3
+    msg <- paste0(pkgname, " v", pkgVersion, "  ",
4
+                  "For help: https://guangchuangyu.github.io/", pkgname, "\n\n")
5
+
6
+    citation <- paste0("If you use ", pkgnameg, " in published research, please cite:\n",
7
+                  "Guangchuang Yu, David Smith, Huachen Zhu, Yi Guan, Tommy Tsan-Yuk Lam. ",
8
+                  "ggtree: an R package for visualization and annotation of phylogenetic trees with their covariates and other associated data. ",
9
+                  "Methods in Ecology and Evolution 2016, doi:10.1111/2041-210X.12628")
10
+    packageStartupMessage(paste0(msg, citation))
8 11
 }