convert chr to date when reading from csv
This commit is contained in:
@@ -233,7 +233,8 @@ read_from_csv <- function(path="inst/csv/") {
|
|||||||
mutate(id = as.character(id)),
|
mutate(id = as.character(id)),
|
||||||
speeches = read.table(str_c(path, "speeches.csv")) %>%
|
speeches = read.table(str_c(path, "speeches.csv")) %>%
|
||||||
tibble() %>%
|
tibble() %>%
|
||||||
mutate(speaker = as.character(speaker)),
|
mutate(speaker = as.character(speaker),
|
||||||
|
date = as.Date(date)),
|
||||||
talks = tibble %$% read.table(str_c(path, "talks.csv")),
|
talks = tibble %$% read.table(str_c(path, "talks.csv")),
|
||||||
comments = tibble %$% read.table(str_c(path, "comments.csv")),
|
comments = tibble %$% read.table(str_c(path, "comments.csv")),
|
||||||
applause = tibble %$% read.table(str_c(path, "applause.csv")))
|
applause = tibble %$% read.table(str_c(path, "applause.csv")))
|
||||||
|
|||||||
Reference in New Issue
Block a user