remove outdated example code

R/parse.R

@@ -227,15 +227,3 @@ read_from_csv <- function(path="csv/") {
          comments = tibble %$% read.table(str_c(path, "comments.csv")),
          applause = tibble %$% read.table(str_c(path, "applause.csv")))
 }
-
-# -------------------------------
-# EXAMPLE USE
-
-# make sure data ist downloaded via fetch.R
-# res <- read_one("records/19126-data.xml")
-# 
-# res$redner
-# res$reden
-# res$talks
-
-# -------------------------------