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

(v1.4.0.9045) unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-12-25 00:06:11 +01:00
parent df37584189
commit 291f802be3
15 changed files with 45 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
R/aa_helper_functions.R
View File

@ -296,7 +296,6 @@ word_wrap <- function(...,
indentation <- 0 + extra_indent
}
msg <- gsub("\n", paste0("\n", strrep(" ", indentation)), msg, fixed = TRUE)
# msg <- gsub("*|*", paste0("*|*", strrep(" ", indentation)), msg, fixed = TRUE)
# remove trailing empty characters
msg <- gsub("(\n| )+$", "", msg)
@ -538,7 +537,7 @@ get_current_data <- function(arg_name, call) {
}
get_root_env_address <- function() {
sub('<environment: (.*)>', '\\1', utils::capture.output(sys.frames()[[1]]))
sub("<environment: (.*)>", "\\1", utils::capture.output(sys.frames()[[1]]))
}
remember_thrown_message <- function(fn) {