#' Library0 Function
#'
#' This function allows you to load/install-and-load multiple packages
#' @param packages vector of packages that you want to load
#' @keywords R packages
#' @export
#' @examples
#' library0(c("plyr", "dplyr", "ggplot2"))
#'
library0 <- function(packages){
.Deprecated("library1")
suppressWarnings({suppressMessages({
for(x in packages){
if(x %in% rownames(installed.packages())){
try({
library(x, character.only = T)
# print(paste0("Successfully loaded: ", x))
})
}else{
try({
install.packages(x, dependencies = T, repos = "https://wbc.upm.edu.my/cran/");
library(x, character.only = T)
})
}
if(!(x %in% rownames(installed.packages()))){
print(paste0("Error installing: ", x))
stop("Packages not fully loaded!")
}
}
})})
}
#' Library1 Function
#'
#' (Simplified version of library0) This function allows you to load/install-and-load multiple packages
#' @param packages vector of packages that you want to load
#' @keywords R packages
#' @export
#' @examples
#' library0(c("plyr", "dplyr", "ggplot2"))
#'
library1 <- function(packages){
suppressWarnings({suppressMessages({
for(x in packages){
if(x %in% rownames(installed.packages())){
try({
library(x, character.only = T)
# print(paste0("Successfully loaded: ", x))
})
}else{
try({
install.packages(x, dependencies = T)
library(x, character.only = T)
})
}
if(!(x %in% rownames(installed.packages()))){
print(paste0("Error installing: ", x))
stop("Packages not fully loaded!")
}
}
})})
}
#' pause function
#'
#' This function allows you to pause a Rexec script
#' @param option different option allows you to prompt different message
#' @keywords pause option
#' @export
#' @examples
#' pause()
#'
pause <- function(option = 99){
if(option == 1){
prompt1 <- "Input 1 to text file to SAVE, Otherwise Input 0 \n ...then Press <Enter> to continue...\n"
}else if(option == 2){
prompt1 <- "hi..."
}else if(option == 3){
prompt1 <- "Input correct date to move csv files...\n";
}else{
prompt1 <- "Press <Enter> to continue..."
}
if (interactive()) {
invisible(readline(prompt = prompt1))
}
else {
cat(prompt1)
invisible(readLines(file("stdin"), 1))
}
}
#' formatdir.f function
#'
#' This function formats adds backslash to directory string without backslash
#' @param dir directory
#' @keywords format directory backslash
#' @export
#' @examples
#' formatdir.f(dir = "C:/Users/User/tempmplus")
#'
formatdir.f <- function(dir){
.Deprecated("formatdir_f")
n <- nchar(dir)
if( substr(dir, n, n) == "/" ){
return(dir)
}else{
return(paste0(dir, "/"))
}
}
#' libraryf function
#'
#' This function loads the library if it is not loaded
#' @param rpackage r package to load (character vector)
#' @keywords libraryf load library if not loaded
#' @export
#' @examples
#' libraryf("function0", "plyr", "dplyr")
#'
libraryf <- function(rpackage){
.Deprecated("library1")
for(x in rpackage){
if( !(x %in% (.packages())) ){
library(x, character.only = T, quietly = T)
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.