convert chr to date when reading from csv

R/parse.R

@@ -233,7 +233,8 @@ read_from_csv <- function(path="inst/csv/") {
              mutate(id = as.character(id)),
          speeches = read.table(str_c(path, "speeches.csv")) %>%
              tibble() %>%
-             mutate(speaker = as.character(speaker)),
+             mutate(speaker = as.character(speaker),
+                    date = as.Date(date)),
          talks = tibble %$% read.table(str_c(path, "talks.csv")),
          comments = tibble %$% read.table(str_c(path, "comments.csv")),
          applause = tibble %$% read.table(str_c(path, "applause.csv")))