R/sabali.reload.R

In sabalicodev/sabali: Twitter Text & Sentiment Analysis for R

#' Sabali Update
#'
#' This function allows you to automatically update Sabali.
#' @param activate Do you love Sabali? Defaults to TRUE.
#' @keywords Sabali
#' @export
#' @examples
#' sabali.reload()
 
sabali.reload <- function(){

if('devtools' %in% rownames(installed.packages()) == TRUE) {
require(devtools)} else {
install.packages("devtools", repos = "http://cran.us.r-project.org")	
require(devtools)}

if('roxygen2' %in% rownames(installed.packages()) == TRUE) {
require(roxygen2)} else {
install.packages("roxygen2", repos = "http://cran.us.r-project.org")	
require(roxygen2)}

# Set Directory to New Package
setwd("~/Desktop/sabali")
# Add Documentation to New Package
document()

# Set Directory for New Package Install
setwd("..")
# Install New Package
install("sabali")
library(sabali)

Sys.sleep(3)

clear()

print("Sabali Reloaded")

}