Merge pull request #5 from gadeynebram/use_checkpoint

Use checkpoint

dependencies.R

@@ -1,25 +1,7 @@
 # LIST OF REQUIRED PACKAGES -----------------------------------------------
 
 required_packages <- c(
-  "AMR",
-  "data.table",
-  "DT",
-  "ggridges",
-  "lubridate",
-  "plotly",
-  "qicharts2",
-  "rintrojs",
-  "shiny",
-  "shinyBS",
-  "shinycssloaders",
-  "shinydashboard",
-  "shinyjs",
-  "shinyWidgets",
-  "survival",
-  "survminer",
-  "tidyverse",
-  "viridis",
-  "zoo"
+  "checkpoint"
 )
 
 # install missing packages
@@ -28,4 +10,29 @@ new.packages <- required_packages[!(required_packages %in% installed.packages()[
 
 if (length(new.packages)) {
   install.packages(new.packages)
-}
+}
+
+rm(new.packages)
+
+library(checkpoint)
+checkpoint(snapshotDate ='2019-10-16')
+library(AMR)
+library(data.table)
+library(DT)
+library(ggridges)
+library(lubridate)
+library(plotly)
+library(qicharts2)
+library(rintrojs)
+library(shiny)
+library(shinyBS)
+library(shinycssloaders)
+library(shinydashboard)
+library(shinyjs)
+library(shinyWidgets)
+library(survival)
+library(ggpubr)
+library(survminer)
+library(tidyverse)
+library(viridis)
+library(zoo)

global.R

@@ -8,7 +8,7 @@
 
 source('dependencies.R')
 # load all packages
-lapply(required_packages, require, character.only = TRUE)
+# lapply(required_packages, require, character.only = TRUE)
 
 # DATA TRANSFORMATION AND NEW VARIABLES -----------------------------------