diff --git a/cute_little_R_functions.R b/cute_little_R_functions.R index 7800b67f57a87c3bf2685bb55d5613ba419bc362..882ff2bb29ebed664a10a8a4e27bd38a42f0a836 100644 --- a/cute_little_R_functions.R +++ b/cute_little_R_functions.R @@ -1401,7 +1401,6 @@ fun.test <- paste0(fun, "(", fun.args, ")") # fun.test2 <- paste0(fun, "(", fun.args2, ")") fun.test2 <- paste0("paste0('", fun, "(", fun.args2, ")')") print(fun.test2) -print("caca1") # plot title for special plot functions if(plot.fun == TRUE){ plot.kind <- "classic" @@ -1427,10 +1426,8 @@ code <- paste( loop.string, ' count <- count + 1 data <- rbind(data, as.character(sapply(eval(parse(text = arg.values)), FUN = "paste", collapse = " ")), stringsAsFactors = FALSE) # each colum is a test -print("caca2") -tempo.try.error <- fun_get_message(data = eval(parse(text = fun.test2)), kind = "error") -tempo.try.warning <- fun_get_message(data = eval(parse(text = fun.test2)), kind = "warning") -print("caca3") +tempo.try.error <- fun_get_message(data = eval(parse(text = fun.test2)), kind = "error", header = FALSE) +tempo.try.warning <- fun_get_message(data = eval(parse(text = fun.test2)), kind = "warning", header = FALSE) if( ! is.null(tempo.try.error)){ kind <- c(kind, "ERROR") problem <- c(problem, TRUE) @@ -1452,10 +1449,7 @@ if(plot.kind == "classic"){ eval(parse(text = fun.test)) tempo <- fun_post_plot(corner.text = tempo.title) }else if(plot.kind == "special"){ -print("caca4") eval(parse(text = fun.test)) -print("caca5") - }else{ tempo.cat <- paste0("\n\n================\n\nINTERNAL CODE ERROR 1 IN ", function.name, ": CODE HAS TO BE MODIFIED\n\n============\n\n") stop(tempo.cat, call. = FALSE) @@ -1467,7 +1461,6 @@ end.loop.string ) suppressMessages(suppressWarnings(eval(parse(text = code)))) # eval(parse(text = code)) -print("caca6") colnames(data) <- arg data <- data.frame(data, kind = kind, problem = problem, message = res, stringsAsFactors = FALSE) row.names(data) <- paste0("test_", sprintf(paste0("%0", nchar(total.comp.nb), "d"), 1:total.comp.nb)) diff --git a/cute_little_R_functions.docx b/cute_little_R_functions.docx index 2d0b96f0efa4750e0e641fed222e4f27d8fe0f28..1f9a2d100826231bfd1144445b14c2d139eaf6ee 100644 Binary files a/cute_little_R_functions.docx and b/cute_little_R_functions.docx differ