From b53c93073b4a2550aaab9b98a7aa9f47c63acf07 Mon Sep 17 00:00:00 2001
From: hwang <haiding.wang@pasteur.fr>
Date: Fri, 22 Mar 2024 11:33:53 +0100
Subject: [PATCH] complete the addition of packages before functions
---
gg_empty.R | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/gg_empty.R b/gg_empty.R
index 0a29c26..5e582a3 100755
--- a/gg_empty.R
+++ b/gg_empty.R
@@ -87,10 +87,10 @@ gg_empty <- function(
# end arg with no default values
# argument checking with arg_check()
# argument checking
- arg.check <- NULL #
+ argum.check <- NULL #
text.check <- NULL #
checked.arg.names <- NULL # for function debbuging: used by r_debugging_tools
- ee <- base::expression(arg.check <- base::c(arg.check, tempo$problem) , text.check <- base::c(text.check, tempo$text) , checked.arg.names <- base::c(checked.arg.names, tempo$object.name))
+ ee <- base::expression(argum.check <- base::c(argum.check, tempo$problem) , text.check <- base::c(text.check, tempo$text) , checked.arg.names <- base::c(checked.arg.names, tempo$object.name))
if( ! base::is.null(text)){
tempo <- saferDev::arg_check(data = text, class = "vector", mode = "character", length = 1, fun.name = function.name) ; base::eval(ee)
}
@@ -99,9 +99,9 @@ gg_empty <- function(
tempo <- saferDev::arg_check(data = title, class = "vector", mode = "character", length = 1, fun.name = function.name) ; base::eval(ee)
}
tempo <- saferDev::arg_check(data = title.size, class = "vector", mode = "numeric", length = 1, fun.name = function.name) ; base::eval(ee)
- if( ! base::is.null(arg.check)){
- if(base::any(arg.check) == TRUE){
- base::stop(base::paste0("\n\n================\n\n", base::paste(text.check[arg.check], collapse = "\n"), "\n\n================\n\n"), call. = FALSE) #
+ if( ! base::is.null(argum.check)){
+ if(base::any(argum.check) == TRUE){
+ base::stop(base::paste0("\n\n================\n\n", base::paste(text.check[argum.check], collapse = "\n"), "\n\n================\n\n"), call. = FALSE) #
}
}
# end argument checking with arg_check()
--
GitLab