diff --git a/README.md b/README.md index a5a4475e07f18b6b14a6bf7c5f35a55d6800bb8d..a8bb758495f56718ff5db21f4444450c01117938 100644 --- a/README.md +++ b/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 diff --git a/r_debugging_tools.R b/r_debugging_tools.R index 609b126e012aeda82f49d3c381029627bd8d461e..9a28537e81f892c379783aba5df90dc1b94bff97 100644 --- a/r_debugging_tools.R +++ b/r_debugging_tools.R @@ -1,6 +1,6 @@ ################################################################ ## ## -## 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 '