Skip to content

Commit 4cc13cc

Browse files
committed
fix helper-user-relations.R
1 parent a838c4c commit 4cc13cc

File tree

3 files changed

+8
-9
lines changed

3 files changed

+8
-9
lines changed

DESCRIPTION

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
Package: repometrics
22
Title: Metrics for Your Code Repository
3-
Version: 0.1.3.028
3+
Version: 0.1.3.029
44
Authors@R:
55
person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
66
comment = c(ORCID = "0000-0003-2172-5265"))

codemeta.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@
88
"codeRepository": "https://github.com/ropensci-review-tools/repometrics",
99
"issueTracker": "https://github.com/ropensci-review-tools/repometrics/issues",
1010
"license": "https://spdx.org/licenses/GPL-3.0",
11-
"version": "0.1.3.028",
11+
"version": "0.1.3.029",
1212
"programmingLanguage": {
1313
"@type": "ComputerLanguage",
1414
"name": "R",

tests/testthat/helper-user-relations.R

+6-7
Original file line numberDiff line numberDiff line change
@@ -35,14 +35,13 @@ mock_user_rel_data <- function () {
3535
timestamp_minus_year <- as.POSIXct ("2023-01-01T00:00:01")
3636

3737
commits <- data.frame (
38-
org = rep ("org", 2L),
39-
repo = c ("one", "two"),
40-
timestamp = rep (timestamp, 2L),
41-
stargazers = 1:2
38+
repo = paste0 ("org", c ("one", "two")),
39+
num_commits = 1:2,
40+
date = rep (timestamp, 2L)
4241
)
4342

4443
commit_cmt <- data.frame (
45-
repo = paste0 (commits$org, commits$repo, collapse = "/"),
44+
repo = commits$repo,
4645
num_commits = 1:2,
4746
date = rep (timestamp, 2L)
4847
)
@@ -52,7 +51,7 @@ mock_user_rel_data <- function () {
5251
issues <- data.frame (
5352
opened_at = rep (timestamp, 2L),
5453
closed_at = rep (timestamp, 2L),
55-
org_repo = paste0 (commits$org, commits$repo, collapse = "/"),
54+
org_repo = commits$repo,
5655
issue_num = 1:2,
5756
num_issue_comments = 3:4,
5857
num_issue_participants = 5:6,
@@ -63,7 +62,7 @@ mock_user_rel_data <- function () {
6362
attr (issues, "ended_at") <- timestamp
6463

6564
issue_cmts <- data.frame (
66-
org_repo = paste0 (commits$org, commits$repo, collapse = "/"),
65+
org_repo = commits$repo,
6766
issue_num = 1:2,
6867
created_at = rep (timestamp, 2L),
6968
num_comments = 1:2,

0 commit comments

Comments
 (0)