R/sabali.install.R

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

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

# --- tidyverse Packages

# tidyverse_packages(include_self = TRUE)

# tidyverse_packages()
#>  [1] "broom"      "cli"        "crayon"     "dbplyr"     "dplyr"     
#>  [6] "forcats"    "ggplot2"    "haven"      "hms"        "httr"      
#> [11] "jsonlite"   "lubridate"  "magrittr"   "modelr"     "pillar"    
#> [16] "purrr"      "readr"      "readxl"     "reprex"     "rlang"     
#> [21] "rstudioapi" "rvest"      "stringr"    "tibble"     "tidyr"     
#> [26] "xml2"       "tidyverse" 

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

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

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

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

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

# --- Data Management 

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

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

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

# --- Twitter Mining Package

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

# --- HTML Time Series Package

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

# --- Geolocation Packages

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

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

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

# --- Text/Sentiment Packages

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

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

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

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

# --- Wordcloud Packages

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

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

# --- Graphing Packages

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

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

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

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

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

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

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

# --- Dendrogram Package

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

}