|
|
|
@ -10,51 +10,55 @@ |
|
|
|
#' @export |
|
|
|
nginx_version_history <- function() { |
|
|
|
|
|
|
|
nginx_changes_url <- |
|
|
|
"https://raw.githubusercontent.com/nginx/nginx/master/docs/xml/nginx/changes.xml" |
|
|
|
page <- gh::gh("/repos/nginx/nginx/tags") |
|
|
|
|
|
|
|
doc <- suppressWarnings(xml2::read_xml(nginx_changes_url)) |
|
|
|
purrr::map_df( |
|
|
|
page, ~{ |
|
|
|
list( |
|
|
|
vers = sub("^release-", "", .x$name), |
|
|
|
rls_date = gh::gh(.x$commit$url)$commit$author$date # kinda dangerous |
|
|
|
) |
|
|
|
}) -> xdf |
|
|
|
|
|
|
|
dplyr::tibble( |
|
|
|
vers = rvest::xml_nodes(doc, xpath="//changes") %>% |
|
|
|
xml2::xml_attr("ver"), |
|
|
|
ts = rvest::xml_nodes(doc, xpath="//changes") %>% |
|
|
|
xml2::xml_attr("date") %>% |
|
|
|
as.Date(), |
|
|
|
year = lubridate::year(ts) |
|
|
|
) -> c1 |
|
|
|
sgh_next <- purrr::safely(gh::gh_next) # to stop on gh_next() error |
|
|
|
|
|
|
|
c( |
|
|
|
readr::read_lines("https://nginx.org/en/CHANGES-1.0"), |
|
|
|
readr::read_lines("https://nginx.org/en/CHANGES-1.2"), |
|
|
|
readr::read_lines("https://nginx.org/en/CHANGES-1.4"), |
|
|
|
readr::read_lines("https://nginx.org/en/CHANGES-1.6"), |
|
|
|
readr::read_lines("https://nginx.org/en/CHANGES-1.8"), |
|
|
|
readr::read_lines("https://nginx.org/en/CHANGES-1.10"), |
|
|
|
readr::read_lines("https://nginx.org/en/CHANGES-1.12"), |
|
|
|
readr::read_lines("https://nginx.org/en/CHANGES-1.14") |
|
|
|
) -> nl |
|
|
|
while(TRUE) { |
|
|
|
page <- sgh_next(page) |
|
|
|
if (is.null(page$result)) break; |
|
|
|
page <- page$result |
|
|
|
dplyr::bind_rows( |
|
|
|
xdf, |
|
|
|
purrr::map_df( |
|
|
|
page, ~{ |
|
|
|
list( |
|
|
|
vers = sub("^release-", "", .x$name), |
|
|
|
rls_date = gh::gh(.x$commit$url)$commit$author$date # kinda dangerous |
|
|
|
) |
|
|
|
}) |
|
|
|
) -> xdf |
|
|
|
} |
|
|
|
|
|
|
|
read.csv( |
|
|
|
stringsAsFactors = FALSE, |
|
|
|
text = paste0( |
|
|
|
c("v,d", nl[grepl("^Changes", nl)] %>% |
|
|
|
gsub("Changes with nginx ", "", .) %>% |
|
|
|
gsub("[[:space:]]{3,}", ",", .)), collapse="\n") |
|
|
|
) %>% |
|
|
|
dplyr::as_tibble() %>% |
|
|
|
dplyr::mutate(d = lubridate::dmy(d)) %>% |
|
|
|
dplyr::select(vers=1, ts=2) %>% |
|
|
|
dplyr::mutate(year = lubridate::year(ts)) -> c2 |
|
|
|
|
|
|
|
dplyr::bind_rows(c1, c2) %>% |
|
|
|
dplyr::distinct() %>% |
|
|
|
dplyr::bind_cols( |
|
|
|
semver::parse_version(.$vers) %>% |
|
|
|
dplyr::as_tibble() |
|
|
|
dplyr::mutate(xdf, vers = stri_replace_first_fixed(vers, "v", "")) %>% |
|
|
|
dplyr::mutate(rls_date = as.Date(stri_sub(rls_date, 1, 10))) %>% |
|
|
|
dplyr::mutate(rls_year = lubridate::year(rls_date)) %>% |
|
|
|
tidyr::separate(vers, c("major", "minor", "patch", "build"), remove=FALSE) %>% |
|
|
|
dplyr::mutate(prerelease = ifelse( |
|
|
|
stri_detect_regex(build, "[[:alpha:]]"), |
|
|
|
stri_extract_first_regex(build, "[[:alpha:]][[:alnum:]]+"), |
|
|
|
"" |
|
|
|
)) %>% |
|
|
|
dplyr::mutate(build = stri_replace_first_regex(build, "[[:alpha:]][[:alnum:]]+", "")) %>% |
|
|
|
dplyr::mutate_at(.vars=c("major", "minor", "patch", "build"), .funs=c(as.integer)) %>% |
|
|
|
dplyr::bind_rows( |
|
|
|
tibble( |
|
|
|
vers = c("1.2.1"), |
|
|
|
rls_date = as.Date(c("2012-06-07")), |
|
|
|
rls_year = lubridate::year(rls_date), |
|
|
|
major = 1L, minor = 2L, patch = 1L, |
|
|
|
prerelease = NA, build = NA |
|
|
|
) |
|
|
|
) %>% |
|
|
|
dplyr::arrange(major, minor, patch) %>% |
|
|
|
dplyr::mutate(vers = factor(vers, levels=vers)) %>% |
|
|
|
dplyr::rename(rls_date = ts, rls_year = year) |
|
|
|
|
|
|
|
dplyr::select(vers, rls_date, rls_year, major, minor, patch, prerelease, build) -> out |
|
|
|
} |
