diff --git a/R/frequency-tables.R b/R/frequency-tables.R index e6178df..d926a4f 100644 --- a/R/frequency-tables.R +++ b/R/frequency-tables.R @@ -429,7 +429,7 @@ summarise_rap_comp <- function(data) { "Team open source code", "Version control", "Peer review", - "Development QA", + "Proportionate QA", "Documentation", "Functions", "Unit testing", @@ -443,7 +443,7 @@ summarise_rap_comp <- function(data) { "open_code_score", "version_control_score", "peer_review_score", - "development_QA_score", + "proportionate_QA_score", "doc_score", "function_score", "unit_test_score", diff --git a/tests/testthat/test-summarise_rap_comp.R b/tests/testthat/test-summarise_rap_comp.R index f77bde3..5355423 100644 --- a/tests/testthat/test-summarise_rap_comp.R +++ b/tests/testthat/test-summarise_rap_comp.R @@ -13,7 +13,7 @@ dummy_data <- data.frame( open_code_score = rep(c(NA, 1, 0), times = 5), version_control_score = rep(c(NA, 1, 0), times = 5), peer_review_score = rep(c(NA, 1, 0), times = 5), - development_QA_score = rep(c(NA, 1, 0), times = 5), + proportionate_QA_score = rep(c(NA, 1, 0), times = 5), doc_score = rep(c(NA, 1, 0), times = 5), basic_rap_score = rep(c(NA, 1, 0), times = 5), function_score = rep(c(NA, 1, 0), times = 5), @@ -48,7 +48,7 @@ test_that("summarise_rap_comp output is as expected", { "Team open source code", "Version control", "Peer review", - "Development QA", + "Proportionate QA", "Documentation", "Functions", "Unit testing", @@ -62,7 +62,7 @@ test_that("summarise_rap_comp output is as expected", { "Team open source code", "Version control", "Peer review", - "Development QA", + "Proportionate QA", "Documentation", "Functions", "Unit testing",