From 49b9a31547d7fdeaece7c4c8353d756d683072b4 Mon Sep 17 00:00:00 2001
From: hwang <haiding.wang@pasteur.fr>
Date: Fri, 22 Mar 2024 14:59:13 +0100
Subject: [PATCH] complete the addition of packages before functions
---
gg_empty.R | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/gg_empty.R b/gg_empty.R
index 5e582a3..4d4f0ad 100755
--- a/gg_empty.R
+++ b/gg_empty.R
@@ -56,11 +56,11 @@ gg_empty <- function(
tempo.cat <- base::paste0("ERROR IN ", function.name, " OF THE ", package.name, " PACKAGE: DIRECTORY PATH INDICATED IN THE lib.path ARGUMENT DOES NOT EXISTS:\n", base::paste(lib.path, collapse = "\n"))
base::stop(base::paste0("\n\n================\n\n", tempo.cat, "\n\n================\n\n"), call. = FALSE) # == in stop() to be able to add several messages between ==
}else{
- .libPaths(new = base::sub(x = lib.path, pattern = "/$|\\\\$", replacement = "")) # .libPaths(new = ) add path to default path. BEWARE: .libPaths() does not support / at the end of a submitted path. Thus check and replace last / or \\ in path
- lib.path <- .libPaths()
+ base::.libPaths(new = base::sub(x = lib.path, pattern = "/$|\\\\$", replacement = "")) # .libPaths(new = ) add path to default path. BEWARE: .libPaths() does not support / at the end of a submitted path. Thus check and replace last / or \\ in path
+ lib.path <- base::.libPaths()
}
}else{
- lib.path <- .libPaths() # .libPaths(new = lib.path) # or .libPaths(new = c(.libPaths(), lib.path))
+ lib.path <- base::.libPaths() # .libPaths(new = lib.path) # or .libPaths(new = c(.libPaths(), lib.path))
}
# end check of lib.path
# check of the required function from the required packages
--
GitLab