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