diff --git a/R/parse.R b/R/parse.R index 603c358..ca428c3 100644 --- a/R/parse.R +++ b/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 - -# -------------------------------