tempo saving

cute_little_R_functions.R

@@ -14,6 +14,7 @@
 # add print warning argument using warning(warnings)
 # update graphic examples with good comment, as in barplot
 # Templates: https://prettydoc.statr.me/themes.html
+# # package: http://r-pkgs.had.co.nz/
 # https://pkgdown.r-lib.org/
 # https://rdrr.io/github/gastonstat/cointoss/
 # doc:https://www.sphinx-doc.org/en/master/man/sphinx-autogen.html considering that https://www.ericholscher.com/blog/2014/feb/11/sphinx-isnt-just-for-python/
@@ -104,7 +105,7 @@ fun_check <- function(data, data.name = NULL, class = NULL, typeof = NULL, mode
 # all.options.in.data: If TRUE, all of the options must be present at least once in data, and nothing else. If FALSE, some of the options must be present in data, and nothing else
 # na.contain: can data contains NA?
 # neg.values: are negative numeric values authorized? BEWARE: only considered if set to FALSE, to check for non negative values when class is set to "numeric", "matrix", "array", "data.frame", "table", or typeof is set to "double", "integer", or mode is set to "numeric"
-    # print: print the error message if $problem is TRUE?
+# print: print the error message if $problem is TRUE? See the example section
 # fun.name: name of the function when fun_check() is used to check its argument. If non NULL, name will be added into the error message returned by fun_check()
 # RETURN
 # a list containing:
@@ -115,6 +116,10 @@ fun_check <- function(data, data.name = NULL, class = NULL, typeof = NULL, mode
 # test <- 1:3 ; fun_check(data = test, data.name = NULL, print = TRUE, options = NULL, all.options.in.data = FALSE, class = NULL, typeof = NULL, mode = NULL, prop = TRUE, double.as.integer.allowed = FALSE, length = NULL)
 # test <- 1:3 ; fun_check(data = test, print = TRUE, class = "numeric", typeof = NULL, double.as.integer.allowed = FALSE)
 # test <- 1:3 ; fun_check(data = test, print = TRUE, class = "vector", mode = "numeric")
+# argument print with and without assignation
+# test <- 1:3 ; tempo <- fun_check(data = test, print = TRUE, class = "vector", mode = "character")
+# test <- 1:3 ; tempo <- fun_check(data = test, print = FALSE, class = "vector", mode = "character") # the assignation allows to recover a problem without printing it
+# test <- 1:3 ; fun_check(data = test, print = TRUE, class = "vector", mode = "character")
 # test <- matrix(1:3) ; fun_check(data = test, print = TRUE, class = "vector", mode = "numeric")
 # DEBUGGING
 # data = expression(TEST) ; data.name = NULL ; class = "vector" ; typeof = NULL ; mode = NULL ; length = 1 ; prop = NULL ; double.as.integer.allowed = FALSE ; options = NULL ; all.options.in.data = FALSE ; na.contain = FALSE ; neg.values = TRUE ; print = TRUE ; fun.name = NULL
@@ -8359,8 +8364,11 @@ fun_python_pack <- function(req.package, path.lib = NULL, R.path.lib = NULL){
 # RETURN
 # nothing
 # EXAMPLES
+# example of error message
 # fun_python_pack(req.package = "nopackage")
+# example without error message (require the installation of the python serpentine package from https://github.com/koszullab/serpentine
 # fun_python_pack(req.package = "serpentine", path.lib = "c:/programdata/anaconda3/lib/site-packages/")
+# another example of error message
 # fun_python_pack(req.package = "serpentine", path.lib = "blablabla")
 # DEBUGGING
 # req.package = "serpentine" ; path.lib = "c:/programdata/anaconda3/lib/site-packages/" ; R.path.lib = NULL