library(tidyverse)

gerrit_csv <-"/gscratch/comdata/users/mjilg/mw-repo-lifecycles/080425_gerrit_filled_df.csv"
gerrit_df <- read.csv(gerrit_csv , header = TRUE) 

library(dplyr)
messages_with_urls <- gerrit_df |>
  dplyr::filter(`gerrit_change_urls` != "[]")
library(stringr)
incomplete_data <- messages_with_urls |> 
  dplyr::filter(str_detect(gerrit_full_results, "'full_result': None\\}"))

maybe_incomplete_data <- messages_with_urls |> 
  dplyr::filter(str_detect(gerrit_full_results, "None"))