2nd commit

README.md

@@ -2,3 +2,7 @@ Download the desired Tagged version, never the current master.
 
 Source the cute_little_functions.R into R/RStudio to have the functions available in the working environment.
 
+
+WHAT'S NEW IN v1.1:
+
+1) printing result improvment

r_debugging_tools.R

 ################################################################
 ##                                                            ##
-##     R DEBUGGING TOOLS v1.0                                  ##
+##     R DEBUGGING TOOLS v1.1                                  ##
 ##                                                            ##
 ##     Gael A. Millot                                         ##
 ##                                                            ##
@@ -19,7 +19,7 @@ str_basic_arg_check_dev <- '
 default.arg.list <- formals(fun = sys.function(sys.parent(n = 2))) # list of all the arguments of the function with their default values (not the values of the user !). Use n = 2 when he string has to be evaluated by eval() inside a function. Use n=1 (default) if not evaluation. It seems that ls() as first line of the function provide the names of the arguments (empty, called, etc., or not)
 arg.without.default.value <- sapply(default.arg.list, is.symbol) & sapply(sapply(default.arg.list, as.character), identical, "") # logical to detect argument without default values (these are typeof "symbol" and class "name" and empty character
 cat(paste0("\n\n================================\n\nARGUMENT CHECKING\n\n================================\n"))
-cat(paste0("\n================\nARGUMENTS OF THE FUNCTION ARE (INCLUDING DEFAULT VALUES):\n"))
+cat(paste0("\n================\nARGUMENTS OF THE FUNCTION ARE (INCLUDING DEFAULT VALUES):\n\n"))
 print(default.arg.list)
 if(any(sapply(default.arg.list, FUN = is.null))){
 cat(paste0("\n================\nNULL ARGUMENTS ARE: ", paste(names(default.arg.list)[sapply(default.arg.list, FUN = is.null)], collapse= " ")))
@@ -31,7 +31,7 @@ cat(paste0("\n================\nARGUMENTS WITHOUT DEFAULT VALUES ARE: ", paste(n
 }else{
 cat(paste0("\n================\nNO ARGUMENTS WITHOUT DEFAULT VALUES"))
 }
-cat(paste0("\n================\n"))
+cat(paste0("\n================\n\n"))
 # END STRING
 '
 
@@ -56,7 +56,7 @@ cat(paste0("\n================\nTHESE ARGUMENTS HAVE NOT BEEN CHECKED WITH fun_p
 }else{
 cat(paste0("\n================\nALL THE ARGUMENTS HAVE BEEN CHECKED USING fun_param_check()"))
 }
-cat(paste0("\n================\n"))
+cat(paste0("\n================\n\n"))
 # END STRING
 '