change variable name

InseeFrLab · Oct 31, 2020 · 784ff2f · 784ff2f
1 parent ec3d139
commit 784ff2f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -9,11 +9,11 @@ cache_in_memory <- function(token) {
   rlang::env_bind(.memory_cache, last_token = token)
 }
 
-load_from_memory_cache <- function(key) {
-  if (!nzchar(key)) {
+load_from_memory_cache <- function(app_key) {
+  if (missing(app_key) || !nzchar(app_key)) {
     return(rlang::env_get(.memory_cache, "last_token", NULL))
   }
-  rlang::env_get(.memory_cache, key, NULL)
+  rlang::env_get(.memory_cache, app_key, NULL)
 }
 
 clear_memory_cache <- function() {