fix vignette

2021-07-28 21:07:07 +02:00
parent 63441d886c
commit d42a039b31
5 changed files with 9 additions and 1 deletions
@@ -189,6 +189,7 @@ parse_rednerliste <- function(rednerliste_xml) {
           rolle_lang = d["rolle_lang",])
 }

+#' @export
 write_to_csv <- function(tables, path="csv/", create=F) {
    check_directory(path, create)
    write.table(tables$redner, str_c(path, "redner.csv"))
@@ -197,6 +198,7 @@ write_to_csv <- function(tables, path="csv/", create=F) {
    write.table(tables$comments, str_c(path, "comments.csv"))
 }

+#' @export
 read_from_csv <- function(path="csv/") {
    list(redner = read.table(str_c(path, "redner.csv")) %>%
             tibble() %>%