remove outdated example code

2021-08-03 12:48:32 +02:00
parent 64ede5c757
commit f91456116f
1 changed files with 0 additions and 12 deletions
@@ -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
-
-# -------------------------------