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