From 26fd1a3a07ae2c93adb5e448cc541ac1e6a344be Mon Sep 17 00:00:00 2001
From: Gael <Gael@WL20-0067.corp.pasteur.fr>
Date: Wed, 4 Nov 2020 20:54:49 +0100
Subject: [PATCH] release v1.7
---
README.md | 5 +++++
r_debugging_tools.R | 5 +++--
2 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/README.md b/README.md
index 8d34494..4967b1f 100644
--- a/README.md
+++ b/README.md
@@ -5,6 +5,11 @@ Source the cute_little_functions.R into R/RStudio to have the functions availabl
WHAT'S NEW IN
+v1.7:
+
+1) Debugged
+
+
v1.6:
1) Debugged
diff --git a/r_debugging_tools.R b/r_debugging_tools.R
index 2b5c51b..5cde378 100644
--- a/r_debugging_tools.R
+++ b/r_debugging_tools.R
@@ -1,6 +1,6 @@
################################################################
## ##
-## R DEBUGGING TOOLS v1.5 ##
+## R DEBUGGING TOOLS v1.7 ##
## ##
## Gael A. Millot ##
## ##
@@ -22,7 +22,8 @@ default.arg.list <- formals(fun = sys.function(sys.parent(n = 2))) # list of all
arg.without.default.value.log <- sapply(default.arg.list, is.symbol) & sapply(sapply(default.arg.list, as.character), identical, "") # logical indicating argument without default values (these are typeof "symbol" and class "name" and empty character
name.or.empty.default.val.arg.log <- sapply(default.arg.list, FUN = "class") == "name"
-arg.with.fun.as.default.value.log <- sapply(default.arg.list, class) %in% c("function", "call") & ! name.or.empty.default.val.arg.log # arguments with function as default values
+arg.with.fun.as.default.value.log <- sapply(default.arg.list, FUN = "class") %in% c("function", "call") & ! name.or.empty.default.val.arg.log # arguments with function as default values
+
if(length(name.or.empty.default.val.arg.log) != length(arg.without.default.value.log)){
stop(paste0("\n\n================\n\nINTERNAL ERROR IN str_basic_arg_check_dev IN ", function.name.local,". CODE MUST BE MODIFED\n\n================\n\n"))
--
GitLab