P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 17:21:49 +02:00
Code Releases Activity

(v1.7.1.9003) unit test

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-06-14 22:37:05 +02:00
parent 99be4c7e7e
commit 556bf0014d
15 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/aa_helper_functions.R
View File

@ -713,9 +713,9 @@ meet_criteria <- function(object,
return(invisible())
}
get_current_data <- function(arg_name, call, reuse_equal_call = TRUE) {
get_current_data <- function(arg_name, call, reuse_from_1st_call = TRUE) {
# check if retrieved before, then get it from package environment to improve speed
if (reuse_equal_call == TRUE &&
if (reuse_from_1st_call == TRUE &&
identical(unique_call_id(entire_session = FALSE), pkg_env$get_current_data.call)) {
return(pkg_env$get_current_data.out)
}