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
