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

(v1.6.0.9064) prepare new release

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-05-24 09:34:08 +02:00
parent a13fd98e8b
commit 4fbf9e1720
21 changed files with 72 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
R/guess_ab_col.R
View File

@ -104,6 +104,12 @@ get_column_abx <- function(x,
only_rsi_columns = FALSE,
sort = TRUE,
...) {
# check if retrieved before, then get it from package environment
if (identical(unique_call_id(entire_session = FALSE), pkg_env$get_column_abx.call)) {
return(pkg_env$get_column_abx.out)
}
meet_criteria(x, allow_class = "data.frame")
meet_criteria(soft_dependencies, allow_class = "character", allow_NULL = TRUE)
meet_criteria(hard_dependencies, allow_class = "character", allow_NULL = TRUE)
@ -184,6 +190,8 @@ get_column_abx <- function(x,
if (info == TRUE) {
message_("No columns found.")
}
pkg_env$get_column_abx.call <- unique_call_id(entire_session = FALSE)
pkg_env$get_column_abx.out <- x
return(x)
}
@ -239,6 +247,9 @@ get_column_abx <- function(x,
missing_msg)
}
}
pkg_env$get_column_abx.call <- unique_call_id(entire_session = FALSE)
pkg_env$get_column_abx.out <- x
x
}