Count additions/modifications with diff tool

[michaelmcd18]

diff <- review::diffPreviousRevisions("script/eda-tables-report.Rmd", .previous_revision = 90, .current_revision = 614)

diff@cur.dat[["tok.rat"]] %>%  
  as.data.frame() %>% 
  dplyr::rename(Edits = ".") %>% 
  dplyr::mutate(
    Changes = case_when(
      Edits == 0 ~ "Deletions", 
      Edits == 1 ~ NA_character_,
      TRUE ~ "Modifications"
    )
  ) %>% 
  dplyr::count(Changes) %>% 
  dplyr::filter(!is.na(Changes))