package_loader.R

#Function to install and library all required packages#

package_load <- function(package_names){
  for(i in 1:length(package_names)){
    if(!package_names[i] %in% installed.packages()){
      install.packages(package_names[i])
    }
    library(package_names[i],character.only = TRUE)
  }
}

#list of packages
pack_req <- c("tidyverse",
              "lubridate",
              "ggplot2", 
              "sf", 
              "terra", 
              "nhdplusTools", 
              "padr", 
              "rjson", 
              "rvest", 
              "dataRetrieval", 
              "httr", 
              "tigris",
              "raster", 
              "janitor",
              "CDSS", 
              "devtools", 
              "plotly", 
              "arrow",
              "jsonlite",
              "ggpubr",
              "ggthemes",
              "scales",
              "corrplot",
              "padr", 
              "gghighlight", 
              "geomtextpath", 
              "ggbeeswarm",
              "broom", 
              "trend", 
              "leaflet", 
              "tmap")
package_load(pack_req)

devtools::install_github("anguswg-ucsb/cdssr")
# Load package
library(cdssr)


remove(pack_req, package_load)