tempo.cat2 <- sapply(tempo.class[tempo], FUN = paste0, collapse = " ")
...
...
@@ -726,7 +716,7 @@ warn.print = TRUE
# warn.print: logical. Print potential warnings at the end of the execution? If FALSE the warning messages are added in the output list as an additional compartment (or NULL if no message).
# RETURN
# A list containing information, depending on the class and type of data. The backbone is generally:
# $NAME: the name of the object
# $NAME: name of the object
# $CLASS: class of the object (class() value)
# $TYPE: type of the object (typeof() value)
# $LENGTH: length of the object (length() value)
...
...
@@ -843,11 +833,12 @@ if( ! is.null(n)){
if(n < 1){
tempo.cat <- paste0("ERROR IN ", function.name, ": n ARGUMENT MUST BE A POSITIVE AND NON NULL INTEGER")
stop(paste0("\n\n================\n\n", tempo.cat, "\n\n================\n\n"), call. = FALSE) # == in stop() to be able to add several messages between ==
}
}else if(is.finite(n)){
# warn.count <- warn.count + 1
tempo.warn <- paste0("SOME COMPARTMENTS CAN BE TRUNCATED (n ARGUMENT IS ", n, ")")