release v1.7

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

r_debugging_tools.R

 ################################################################
 ##                                                            ##
-##     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"))