~hrbrmstr/ggchicklet

dc3124d9b30c28f73ee6d04966920a3cb5674138 — boB Rudis 4 years ago 7494388
updated debates data; regen'd vignette
2 files changed, 5 insertions(+), 5 deletions(-)

M data-raw/debates2019.R
M data/debates2019.rda
M data-raw/debates2019.R => data-raw/debates2019.R +5 -5
@@ 57,7 57,7 @@ read_html(here::here("data-raw/2019-06-26-us-elections-debate-speaking-time.html
      grepl("Election", topic) ~ "Elections Reform",
      grepl("Health", topic) ~ "Healthcare",
      grepl("Party", topic) ~ "Party Strategy",
      grepl("Women", topic) ~ "Womens Rights",
      grepl("Women", topic) ~ "Women's Rights",
      TRUE ~ topic
    )
  ) %>%


@@ 103,7 103,7 @@ read_html(here::here("data-raw/2019-06-27-us-elections-debate-speaking-time.html
      grepl("Election", topic) ~ "Elections Reform",
      grepl("Health", topic) ~ "Healthcare",
      grepl("Party", topic) ~ "Party Strategy",
      grepl("Women", topic) ~ "Womens Rights",
      grepl("Women", topic) ~ "Women's Rights",
      TRUE ~ topic
    )
  ) %>%


@@ 149,7 149,7 @@ read_html(here::here("data-raw/2019-07-30-us-elections-debate-speaking-time.html
      grepl("Election", topic) ~ "Elections Reform",
      grepl("Health", topic) ~ "Healthcare",
      grepl("Party", topic) ~ "Party Strategy",
      grepl("Women", topic) ~ "Womens Rights",
      grepl("Women", topic) ~ "Women's Rights",
      TRUE ~ topic
    )
  ) %>%


@@ 195,7 195,7 @@ read_html(here::here("data-raw/2019-07-31-us-elections-debate-speaking-time.html
      grepl("Election", topic) ~ "Elections Reform",
      grepl("Health", topic) ~ "Healthcare",
      grepl("Party", topic) ~ "Party Strategy",
      grepl("Women", topic) ~ "Womens Rights",
      grepl("Women", topic) ~ "Women's Rights",
      TRUE ~ topic
    )
  ) %>%


@@ 241,7 241,7 @@ read_html(here::here("data-raw/2019-09-12-us-elections-debate-speaking-time.html
      grepl("Election", topic) ~ "Elections Reform",
      grepl("Health", topic) ~ "Healthcare",
      grepl("Party", topic) ~ "Party Strategy",
      grepl("Women", topic) ~ "Womens Rights",
      grepl("Women", topic) ~ "Women's Rights",
      TRUE ~ topic
    )
  ) %>%

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