#' 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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.