Merge branch '17-html-clean-in-master-r-integrieren' into 'master'

Resolve "Html Clean in Master.R integrieren"

Closes #17

See merge request !14

r/Master.R

@@ -13,7 +13,7 @@ cat("Sourcing R scripts... ")
 
 source("r/GetData.R")
 source("r/GetNoOfSpouses.R")
-#source("r/getBirthday.R")
+source("r/CleanHtml.R")
 #source("r/getSomethingElse.R")
 
 cat("Done.\n")
@@ -34,7 +34,7 @@ results <- apply(articles, 1, function(article) {
   
   ## Data cleaning
   
-  # cleaned.text <- someCleanFunctioN(data$Text)
+  cleaned.text <- cleanHtml(article[4])
   
   ## Data preprocessing/annotating