diff --git a/R/parse.R b/R/parse.R
index 1abf1d0..c6c0e17 100644
--- a/R/parse.R
+++ b/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")))