Use wikipedia api

Implements #4 (closed), #8 (closed) Datenimport vollautmoatisch über source(GetData.R), importiert html.

r/GetData.R

@@ -99,6 +99,9 @@ getData <- function(use.cache = TRUE, write.cache = FALSE) {
   # Write result if desired
   
   if(write.cache) {
+    if (!dir.exists("data")) {
+      dir.create("data")
+    }
     cat("Writing data to files... ")
     write.table(articles, "data/articles.csv")
     saveRDS(articles, "data/articles.RDS")