Add master script

r/Master.R

+### This script consolidates everything
+### Just examples for now
+
+## Librarys
+
+#library(SomeLibrary)
+
+## Load Scripts
+
+#source("getBirthday.R")
+#source("getSomethingElse.R")
+
+## Fetch data via API
+
+source("GetData.R")
+
+# TODO: Change script to be a function
+# Data is now in articles
+
+## Data processing
+
+results <- lapply(articles, function(x) {
+  ## Data cleaning
+  
+  # cleaned.text <- someCleanFunctioN(x$Text)
+  
+  ## Data preprocessing/annotating
+  
+  # annotated.text <- annotationFunction(x$Text)
+  
+  ## Extract information from Text
+  
+  # someFact <- getFactFromTextFunctioN(annotated.text)
+  
+  # someOtherFact <- getOtherFactFromText(x$Text)
+  
+  ## Create Results
+  
+  # data.frame(Name = x$Name,
+  #            FactOne = someFact,
+  #            FactTwo = someOtherFact)
+  
+})
+
+results <- do.call(rbind, results)
+
+## Results are now in results
+
+## Format for rasa 
+
+# someFormatFunction(results)