without side effect

YuLab-SMU · Dec 13, 2023 · 1a05b2e · 1a05b2e
1 parent 2fa8e80
commit 1a05b2e
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 7 deletions.
diff --git a/R/baidu-translate.R b/R/baidu-translate.R
@@ -36,11 +36,24 @@ set_translate_appkey <- function(appid, key) {
     options(yulab_translate = list(appid = appid, key = key))
 }
 
+get_translate_source <- function() {
+    getOption('yulab_translate_source', "baidu")
+}
+
 get_translate_appkey <- function() {
-    getOption('yulab_translate')
+    res <- getOption('yulab_translate')
+    if (!is.null(res)) return(res)
+
+    src <- get_translate_source()
+    if (src == "baidu") {
+        res <- getOption('yulab_translate', .baidu_appkey)
+    }
+    return(res)
 }
 
 
+
+
 #' Translate query sentence
 #' 
 #' This function use the Baidu fanyi API to translate query sentences

diff --git a/R/zzz.R b/R/zzz.R
@@ -5,10 +5,5 @@
 }
 
 
-
-.onAttach <- function(libname, pkgname) {
-    set_translate_source("baidu")
-    set_translate_option(appid = "20231211001907382", key = "UM3Z6c5iQMOYNkkN5dzV")
-}
-
+.baidu_appkey <- list(appid = "20231211001907382", key = "UM3Z6c5iQMOYNkkN5dzV")