15 lines
500 B
R
15 lines
500 B
R
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"))
|