Add master script

r/Master.R

@@ -9,16 +9,24 @@
 
 ## Load Scripts
 
+cat("Sourcing R scripts... ")
+
 source("r/GetData.R")
 #source("r/getBirthday.R")
 #source("r/getSomethingElse.R")
 
+cat("Done.\n")
+
 ## Fetch data
 
+cat("Starting data import...\n")
+
 articles <- getData(use.cache = TRUE)
 
 ## Data processing
 
+cat("Processing data...\n")
+
 results <- lapply(articles, function(data) {
   ## Data cleaning