|
| 1 | +gh_forks_qry <- function (org = "ropensci-review-tools", |
| 2 | + repo = "repometrics", |
| 3 | + n_per_page = 100L, |
| 4 | + end_cursor = NULL) { |
| 5 | + |
| 6 | + checkmate::assert_integerish (n_per_page) |
| 7 | + |
| 8 | + after_txt <- "" |
| 9 | + if (!is.null (end_cursor)) { |
| 10 | + after_txt <- paste0 (", after:\"", end_cursor, "\"") |
| 11 | + } |
| 12 | + |
| 13 | + q <- paste0 ("{ |
| 14 | + repository(owner:\"", org, "\", name:\"", repo, "\") { |
| 15 | + forks (first: ", n_per_page, after_txt, ") { |
| 16 | + pageInfo { |
| 17 | + hasNextPage |
| 18 | + endCursor |
| 19 | + } |
| 20 | + nodes { |
| 21 | + createdAt |
| 22 | + nameWithOwner |
| 23 | + url |
| 24 | + } |
| 25 | + } |
| 26 | + } |
| 27 | + }") |
| 28 | + |
| 29 | + return (q) |
| 30 | +} |
| 31 | + |
| 32 | +cm_data_repo_forks <- function (path, n_per_page = 100L) { |
| 33 | + |
| 34 | + is_test_env <- Sys.getenv ("REPOMETRICS_TESTS") == "true" |
| 35 | + n_per_page <- n_per_page_in_tests (n_per_page) |
| 36 | + |
| 37 | + or <- org_repo_from_path (path) |
| 38 | + end_cursor <- fork_data <- NULL |
| 39 | + has_next_page <- TRUE |
| 40 | + |
| 41 | + while (has_next_page) { |
| 42 | + |
| 43 | + q <- gh_forks_qry ( |
| 44 | + org = or [1], |
| 45 | + repo = or [2], |
| 46 | + end_cursor = end_cursor, |
| 47 | + n_per_page = n_per_page |
| 48 | + ) |
| 49 | + dat <- gh::gh_gql (query = q) |
| 50 | + |
| 51 | + fork_data <- c (fork_data, dat$data$repository$forks$nodes) |
| 52 | + |
| 53 | + has_next_page <- dat$data$repository$forks$pageInfo$hasNextPage |
| 54 | + end_cursor <- dat$data$repository$forks$pageInfo$endCursor |
| 55 | + if (is_test_env) { |
| 56 | + has_next_page <- FALSE |
| 57 | + } |
| 58 | + } |
| 59 | + |
| 60 | + org_repo <- vapply (fork_data, function (i) i$nameWithOwner, character (1L)) |
| 61 | + created <- vapply (fork_data, function (i) i$createdAt, character (1L)) |
| 62 | + |
| 63 | + data.frame ( |
| 64 | + org_repo = org_repo, |
| 65 | + created = as.Date (created) |
| 66 | + ) |
| 67 | +} |
0 commit comments