~hrbrmstr/ggchicklet

d5156da51f972e2f06ada084ccc5fb5dcc3064c8 — boB Rudis 4 years ago ec8c9a3
november
2 files changed, 3 insertions(+), 1 deletions(-)

M data-raw/debates2019.R
M data/debates2019.rda
M data-raw/debates2019.R => data-raw/debates2019.R +3 -1
@@ 320,8 320,9 @@ read_html(here::here("data-raw/2019-11-20-us-elections-debate-speaking-time.html
  filter(speaker != "") %>%
  mutate(
    topic = case_when(
      topic == "" ~ "Other",
      topic == "" & speaker == "Biden" ~ "Closing",
      grepl("climate", topic) ~ "Climate",
      grepl("closing", topic) ~ "Closing",
      grepl("criminal-justice", topic) ~ "Criminal Justice",
      grepl("electability", topic) ~ "Electability",
      grepl("election-reform", topic) ~ "Election Reform",


@@ 341,6 342,7 @@ read_html(here::here("data-raw/2019-11-20-us-elections-debate-speaking-time.html
      grepl("tech-companies", topic) ~ "Tech Companies",
      grepl("white-supremacist violence", topic) ~ "White-Supremacy",
      grepl("womens-issues", topic) ~ "Women's Rights",
      topic == "" ~ "Other",
      TRUE ~ topic
    )
  ) %>%

M data/debates2019.rda => data/debates2019.rda +0 -0