EmptyRProject/start.R at master · FutureFacts/EmptyRProject · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65

######## Initialisation ########

# Libpath
.libPaths("C:/Rlibs")

# Close any open devices (if an error occurs while saving an image, a device may be left open)
for (d in dev.list()) { try(dev.off()); }; rm(d);
# Clear the Global Environment
rm(list = ls());
gc();
# Clear the console screen
cat("\014");


# Set system path to include the correct version of the Oracle Instant Client
# Sys.setenv("PATH" = paste0(Sys.getenv("PATH"), ";C:\\Program Files\\Oracle\\instantclient_12_1"));


# project functions
project_ensure_folder <- function(folderName) {
  ifelse(  !dir.exists(folderName)
         , dir.create(folderName, recursive = TRUE)
         , FALSE);
}


######## Parameters ########
# Sys.setenv(R_CONFIG_ACTIVE = "")
# Sys.setenv(R_CONFIG_ACTIVE = "acceptance")
# Sys.setenv(R_CONFIG_ACTIVE = "production")
# Sys.getenv("R_CONFIG_ACTIVE")

DTS <- as.POSIXlt(Sys.time(), "UTC");
install.packages("config")
library(config);
project_config   <- config::get(file = "config.yml", use_parent = FALSE);
rm(DTS);

if (dir.exists(project_config$folders$output)) {
  unlink(project_config$folders$output, recursive = TRUE)
}
for (folder in project_config$folders) {
  project_ensure_folder(folder);
}; rm(folder);


######## Logging ########
install.packages("logging")
library(logging);
basicConfig(level = project_config$logging$level);
addHandler(  writeToFile
           , file   = paste(project_config$folders$output, project_config$files$log, sep="/")
           , level  = project_config$logging$level
           , logger = '');
loginfo(paste0("Logging started at level:   ", project_config$logging$level));

loginfo(paste0("Current working directory:  ", getwd()));


######## Process all steps ########
source("Source/_ProcessAll.R");

# Exiting
loginfo("Finished")