Rename get.issues to get.issues.filtered, get.issues.unfiltered to ge…

…t.issues to make it similar to get.commits[.filtered] Close #185.
se-sic · Mar 10, 2021 · 8cb3159 · 8cb3159
1 parent d1ffab7
commit 8cb3159
Show file tree

Hide file tree

Showing 7 changed files with 55 additions and 55 deletions.
diff --git a/tests/test-data.R b/tests/test-data.R
@@ -71,11 +71,11 @@ test_that("Compare two ProjectData objects", {
 
     expect_true(proj.data.one$equals(proj.data.two), "Two identical ProjectData objects.")
 
-    proj.data.one$get.issues()
+    proj.data.one$get.issues.filtered()
 
     expect_false(proj.data.one$equals(proj.data.two), "Two not identical ProjectData objects.")
 
-    proj.data.two$get.issues()
+    proj.data.two$get.issues.filtered()
 
     expect_true(proj.data.one$equals(proj.data.two), "Two identical ProjectData objects.")
 

diff --git a/tests/test-split-sliding-window.R b/tests/test-split-sliding-window.R
@@ -68,7 +68,7 @@ test_that("Split a data object time-based (split.basis = 'commits', sliding.wind
     data = list(
         commits = project.data$get.commits(),
         commit.messages = project.data$get.commit.messages(),
-        issues = project.data$get.issues(),
+        issues = project.data$get.issues.filtered(),
         mails = project.data$get.mails(),
         pasta = project.data$get.pasta(),
         synchronicity = project.data$get.synchronicity()
@@ -138,7 +138,7 @@ test_that("Split a data object time-based (split.basis = 'commits', sliding.wind
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -164,7 +164,7 @@ test_that("Split a data object time-based (split.basis = 'mails', sliding.window
     data = list(
         commits = project.data$get.commits(),
         commit.messages = project.data$get.commit.messages(),
-        issues = project.data$get.issues(),
+        issues = project.data$get.issues.filtered(),
         mails = project.data$get.mails(),
         pasta = project.data$get.pasta(),
         synchronicity = project.data$get.synchronicity()
@@ -248,7 +248,7 @@ test_that("Split a data object time-based (split.basis = 'mails', sliding.window
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -274,7 +274,7 @@ test_that("Split a data object time-based (split.basis = 'issues', sliding.windo
     data = list(
         commits = project.data$get.commits(),
         commit.messages = project.data$get.commit.messages(),
-        issues = project.data$get.issues(),
+        issues = project.data$get.issues.filtered(),
         mails = project.data$get.mails(),
         pasta = project.data$get.pasta(),
         synchronicity = project.data$get.synchronicity()
@@ -337,7 +337,7 @@ test_that("Split a data object time-based (split.basis = 'issues', sliding.windo
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -364,7 +364,7 @@ test_that("Split a data object time-based (bins = ... , sliding.window = TRUE)."
     data = list(
         commits = project.data$get.commits(),
         commit.messages = project.data$get.commit.messages(),
-        issues = project.data$get.issues(),
+        issues = project.data$get.issues.filtered(),
         mails = project.data$get.mails(),
         pasta = project.data$get.pasta(),
         synchronicity = project.data$get.synchronicity()
@@ -413,7 +413,7 @@ test_that("Split a data object time-based (bins = ... , sliding.window = TRUE)."
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -439,7 +439,7 @@ test_that("Split a data object activity-based (activity.type = 'commits', slidin
     data = list(
         commits = project.data$get.commits(),
         commit.messages = project.data$get.commit.messages(),
-        issues = project.data$get.issues(),
+        issues = project.data$get.issues.filtered(),
         mails = project.data$get.mails(),
         pasta = project.data$get.pasta(),
         synchronicity = project.data$get.synchronicity()
@@ -501,7 +501,7 @@ test_that("Split a data object activity-based (activity.type = 'commits', slidin
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -547,7 +547,7 @@ test_that("Split a data object activity-based (activity.type = 'commits', slidin
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -600,7 +600,7 @@ test_that("Split a data object activity-based (activity.type = 'commits', slidin
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -643,7 +643,7 @@ test_that("Split a data object activity-based (activity.type = 'commits', slidin
     data = list(
         commits = project.data$get.commits(),
         commit.messages = project.data$get.commit.messages(),
-        issues = project.data$get.issues(),
+        issues = project.data$get.issues.filtered(),
         mails = project.data$get.mails(),
         pasta = project.data$get.pasta(),
         synchronicity = project.data$get.synchronicity()
@@ -712,7 +712,7 @@ test_that("Split a data object activity-based (activity.type = 'commits', slidin
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -738,7 +738,7 @@ test_that("Split a data object activity-based (activity.type = 'mails', sliding.
     data = list(
         commits = project.data$get.commits(),
         commit.messages = project.data$get.commit.messages(),
-        issues = project.data$get.issues(),
+        issues = project.data$get.issues.filtered(),
         mails = project.data$get.mails(),
         pasta = project.data$get.pasta(),
         synchronicity = project.data$get.synchronicity()
@@ -842,7 +842,7 @@ test_that("Split a data object activity-based (activity.type = 'mails', sliding.
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -888,7 +888,7 @@ test_that("Split a data object activity-based (activity.type = 'mails', sliding.
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -941,7 +941,7 @@ test_that("Split a data object activity-based (activity.type = 'mails', sliding.
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -979,7 +979,7 @@ test_that("Split a data object activity-based (activity.type = 'issues', sliding
     data = list(
         commits = project.data$get.commits(),
         commit.messages = project.data$get.commit.messages(),
-        issues = project.data$get.issues(),
+        issues = project.data$get.issues.filtered(),
         mails = project.data$get.mails(),
         pasta = project.data$get.pasta(),
         synchronicity = project.data$get.synchronicity()
@@ -1076,7 +1076,7 @@ test_that("Split a data object activity-based (activity.type = 'issues', sliding
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -1122,7 +1122,7 @@ test_that("Split a data object activity-based (activity.type = 'issues', sliding
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -1175,7 +1175,7 @@ test_that("Split a data object activity-based (activity.type = 'issues', sliding
     results.data = list(
         commits = lapply(results, function(cf.data) cf.data$get.commits()),
         commit.messages = lapply(results, function(cf.data) cf.data$get.commit.messages()),
-        issues = lapply(results, function(cf.data) cf.data$get.issues()),
+        issues = lapply(results, function(cf.data) cf.data$get.issues.filtered()),
         mails = lapply(results, function(cf.data) cf.data$get.mails()),
         pasta = lapply(results, function(cf.data) cf.data$get.pasta()),
         synchronicity = lapply(results, function(cf.data) cf.data$get.synchronicity())
@@ -1186,7 +1186,7 @@ test_that("Split a data object activity-based (activity.type = 'issues', sliding
 
     expect_error(
         split.data.activity.based(project.data, activity.type = "issues",
-                                  number.windows = nrow(project.data$get.issues()) + 10, sliding.window = TRUE),
+                                  number.windows = nrow(project.data$get.issues.filtered()) + 10, sliding.window = TRUE),
         info = "Error expected (number.windows) (1)."
     )