update

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: yulab.utils
 Title: Supporting Functions for Packages Maintained by 'YuLab-SMU'
-Version: 0.1.6.003
+Version: 0.1.6.004
 Authors@R: c(person("Guangchuang", "Yu", email = "guangchuangyu@gmail.com", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-6485-8781")))
 Description: Miscellaneous functions commonly used by 'YuLab-SMU'.
 Imports:

NEWS.md

@@ -1,5 +1,6 @@
-# yulab.utils 0.1.6.003
+# yulab.utils 0.1.6.004
 
++ `pkg_ref()` to access textVersion of package reference (2024-08-21, Wed)
 + export `str_detect()` (20024-08-19, Mon)
 + `user_dir()` to setup user data dir (20024-08-17, Sat)
 + `which_os()` to return the system name

R/yulab-msg.R

@@ -41,7 +41,7 @@ yulab_msg <- function(pkgname = NULL, n = 1) {
     } else if (id == 2) {
         citation_msg <- random_ref(pkgname, ref_ggtree(), random_n = n)
     } else {
-        citation_msg <- NULL
+        citation_msg <- pkg_ref(pkgname)
     }
 
     if (is.null(citation_msg)) return(header_msg)
@@ -83,6 +83,21 @@ random_ref <- function(pkgname, refs, random_n) {
 
 }
 
+pkg_ref <- function(pkgname) {
+    refs <- c(
+        fanyi = 
+            paste("D Wang, G Chen, L Li, S Wen, Z Xie, X Luo, L Zhan, S Xu, J Li, R Wang, Q Wang, G Yu.",
+                "Reducing language barriers, promoting information absorption, and communication using fanyi.",
+                "Chinese Medical Journal. 2024, 137(16):1950-1956. doi: 10.1097/CM9.0000000000003242")
+    )
+
+    ref <- refs[pkgname]
+
+    if (is.null(ref)) return(NULL)
+
+    msg <- "Please cite:\n\n" 
+    str_wrap(paste0(msg, refs, "\n"))
+}