|
...
|
...
|
@@ -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
|
}
|
