Add master script

r/Master.R

@@ -9,30 +9,38 @@
 
 ## 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
 
-results <- lapply(articles, function(x) {
+cat("Processing data...\n")
+
+results <- lapply(articles, function(data) {
   ## Data cleaning
   
-  # cleaned.text <- someCleanFunctioN(x$Text)
+  # cleaned.text <- someCleanFunctioN(data$Text)
   
   ## Data preprocessing/annotating
   
-  # annotated.text <- annotationFunction(x$Text)
+  # annotated.text <- annotationFunction(data$Text)
   
   ## Extract information from Text
   
   # someFact <- getFactFromTextFunctioN(annotated.text)
   
-  # someOtherFact <- getOtherFactFromText(x$Text)
+  # someOtherFact <- getOtherFactFromText(data$Text)
   
   ## Create Results