convert chr to date when reading from csv

2021-08-09 16:08:56 +02:00
parent 5490f9fed6
commit 2a9035e630
1 changed files with 2 additions and 1 deletions
@@ -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")))