@@ -7,9 +7,9 @@ cm_metric_issue_response_time <- function (path, end_date = Sys.Date ()) {
7
7
ctbs_main_all <- main_contributors (path , end_date = end_date , period = NULL )
8
8
ctbs_main <- unique (c (ctbs_main_recent , ctbs_main_all ))
9
9
10
- issues <- cm_data_issues_from_gh_api (path )
10
+ issues <- rm_data_issues_from_gh_api (path )
11
11
issues <- issues [grep (" issues" , issues $ url ), ]
12
- comments <- cm_data_issue_comments_from_gh_api (path )
12
+ comments <- rm_data_issue_comments_from_gh_api (path )
13
13
14
14
cmt_responses <- dplyr :: filter (comments , user_login %in% ctbs_main ) | >
15
15
dplyr :: group_by (issue_number ) | >
@@ -40,7 +40,7 @@ cm_metric_issue_response_time <- function (path, end_date = Sys.Date ()) {
40
40
41
41
cm_metric_defect_resolution_dur <- function (path , end_date = Sys.Date ()) {
42
42
43
- issues <- cm_data_issues_from_gh_api (path )
43
+ issues <- rm_data_issues_from_gh_api (path )
44
44
index <- grep (" bug|defect|fix" , issues $ label , ignore.case = TRUE )
45
45
index <- index [which (! grepl (" wontfix" , issues $ label [index ]))]
46
46
bugs <- issues [index , ]
@@ -113,7 +113,7 @@ cm_metric_pr_closure_ratio <- function (path, end_date = Sys.Date ()) {
113
113
# suppress no visible binding notes:
114
114
closed <- NULL
115
115
116
- prs <- cm_data_prs_from_gh_api (path )
116
+ prs <- rm_data_prs_from_gh_api (path )
117
117
prs $ created_at <- as.Date (prs $ created_at )
118
118
prs $ closed_at <- as.Date (prs $ closed_at )
119
119
@@ -136,7 +136,7 @@ cm_metric_issue_age <- function (path, end_date = Sys.Date ()) {
136
136
137
137
start_date <- end_date - get_repometrics_period ()
138
138
139
- issues <- cm_data_issues_from_gh_api (path ) | >
139
+ issues <- rm_data_issues_from_gh_api (path ) | >
140
140
dplyr :: mutate (
141
141
created_at = as.Date (created_at ), closed_at = as.Date (closed_at )
142
142
) | >
0 commit comments