Add master script

r/Master.R

+#!/usr/bin/env Rscript
+
+
+### This script consolidates everything
+
+## Librarys
+
+#library(SomeLibrary)
+
+## 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
+  
+  # cleaned.text <- someCleanFunctioN(data$Text)
+  
+  ## Data preprocessing/annotating
+  
+  # annotated.text <- annotationFunction(data$Text)
+  
+  ## Extract information from Text
+  
+  # someFact <- getFactFromTextFunctioN(annotated.text)
+  
+  # someOtherFact <- getOtherFactFromText(data$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)