1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
# taken from usethis
# definitely designed for GitHub URLs but not overtly GitHub-specific
# https://stackoverflow.com/questions/2514859/regular-expression-for-git-repository
# https://git-scm.com/docs/git-clone#_git_urls
# https://stackoverflow.com/questions/27745/getting-parts-of-a-url-regex
github_url_regex <- paste0(
"^",
"(?<protocol>\\w+://)?",
"(?<user>.+@)?",
"(?<host>[^/:]+)",
"[/:]",
"(?<repo_owner>[^/]+)",
"/",
"(?<repo_name>[^/#]+)",
"(?<fragment>.*)",
"$"
)
github_fragment_regex <- paste0(
"/runs/",
"(?<run_id>[0-9]+)",
"/jobs?/",
"(?<html_id>[0-9]+)",
"$"
)
parse_as_gha_url <- function(url) {
res <- re_match(url, github_url_regex)$groups
res2 <- re_match(res$fragment, github_fragment_regex)$groups
res$run_id <- res2$run_id
res$html_id <- res2$html_id
ok <- res$host %in% "github.com" &
!is.na(res$repo_owner) & !is.na(res$repo_name) &
!is.na(res$run_id) & !is.na(res$html_id)
data.frame(
owner = ifelse(ok, res$repo_owner, NA_character_),
repo = ifelse(ok, res$repo_name, NA_character_),
run_id = ifelse(ok, res$run_id, NA_character_),
html_id = ifelse(ok, res$html_id, NA_character_),
stringsAsFactors = FALSE,
row.names = NULL
)
}
is_gha_url <- function(url) {
res <- parse_as_gha_url(url)
!is.na(res$run_id)
}
get_session_info_gha <- function(url) {
if (!requireNamespace("gh", quietly = TRUE)) {
stop(
"The gh package is not available.\n",
"This appears to be the URL for a GitHub Actions (GHA) log:\n",
url, "\n",
"You must install the gh package to get session info for GHA job logs."
)
}
dat <- parse_as_gha_url(url)
# the last ID in the browser URL is not the job_id!
# instead, we must lookup the job_id
jobs <- gh::gh(
"/repos/{owner}/{repo}/actions/runs/{run_id}/jobs",
owner = dat$owner, repo = dat$repo, run_id = dat$run_id
)
html_urls <- vapply(jobs[["jobs"]], function(x) x[["html_url"]], "")
i <- which(html_urls == url)
if (length(i) == 0) {
stop("Failed to find the job associated with '", url, "'; perhaps there was a later attempt?")
}
dat$job_id <- jobs[["jobs"]][[i]][["id"]]
meta <- gh::gh(
"/repos/{owner}/{repo}/actions/jobs/{job_id}",
owner = dat$owner, repo = dat$repo, job_id = dat$job_id
)
raw_log <- gh::gh(
"/repos/{owner}/{repo}/actions/jobs/{job_id}/logs",
owner = dat$owner, repo = dat$repo, job_id = dat$job_id
)
timestamped_lines <- unlist(strsplit(raw_log$message, split = "\r\n|\n"))
lines <- sub("^[^\\s]+\\s", "", timestamped_lines, perl = TRUE)
re_start <- "[-=\u2500\u2550][ ]Session info[ ]"
cand <- grep(re_start, lines)
if (length(cand) == 0) stop("Cannot find session info at '", url, "'.")
lines <- lines[cand[1]:length(lines)]
lines[1] <- sub(paste0("^.*(", re_start, ")"), "\\1", lines[1])
grepl_end <- function(lines) {
grepl("^[ ]*\\[[0-9]\\] ", lines) |
grepl("^[ ]*[-\u2500]+$", lines)
}
end <- which(grepl_end(lines))[1]
if (is.na(end)) stop("Cannot parse session info from '", url, "'.")
while (end < length(lines) && grepl_end(lines[end + 1])) {
end <- end + 1
}
si <- get_session_info_literal(lines[1:end])
si$arg <- "github-actions"
si$name <- paste(
meta$name,
meta$conclusion,
paste("job", meta$id),
paste("run", meta$run_id),
sep = " | "
)
si
}
|
