From 05b7493176576aa9b2b066c4bc3414ebe5a3bfcc Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Sat, 21 Feb 2026 01:52:12 +0000 Subject: [PATCH 1/2] Initial plan From 0a19fc257e4ec347eec4bdea1c371ceadc552daa Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Sat, 21 Feb 2026 01:55:05 +0000 Subject: [PATCH 2/2] Fix 5 style issues in tests/testthat/test-new-legacy.R Co-authored-by: smasongarrison <6001608+smasongarrison@users.noreply.github.com> --- tests/testthat/test-new-legacy.R | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/tests/testthat/test-new-legacy.R b/tests/testthat/test-new-legacy.R index 2b66fc9..063d562 100644 --- a/tests/testthat/test-new-legacy.R +++ b/tests/testthat/test-new-legacy.R @@ -1,14 +1,16 @@ base_ends_with <- function(string, end_pattern) { reg_pattern <- paste0(end_pattern, "$") - out <- string[grepl(pattern = end_pattern, x = string)] - return(out) + string[grepl(pattern = end_pattern, x = string)] } make_double_entered <- function(.data) { new_data <- .data - names(new_data)[which(names(new_data) %in% base_ends_with(names(new_data), "_1"))] <- gsub(pattern = "_1", replacement = "_3", x = base_ends_with(names(new_data), "_1")) - names(new_data)[which(names(new_data) %in% base_ends_with(names(new_data), "_2"))] <- gsub(pattern = "_2", replacement = "_1", x = base_ends_with(names(new_data), "_2")) - names(new_data)[which(names(new_data) %in% base_ends_with(names(new_data), "_3"))] <- gsub(pattern = "_3", replacement = "_2", x = base_ends_with(names(new_data), "_3")) + names(new_data)[which(names(new_data) %in% base_ends_with(names(new_data), "_1"))] <- + gsub(pattern = "_1", replacement = "_3", x = base_ends_with(names(new_data), "_1")) + names(new_data)[which(names(new_data) %in% base_ends_with(names(new_data), "_2"))] <- + gsub(pattern = "_2", replacement = "_1", x = base_ends_with(names(new_data), "_2")) + names(new_data)[which(names(new_data) %in% base_ends_with(names(new_data), "_3"))] <- + gsub(pattern = "_3", replacement = "_2", x = base_ends_with(names(new_data), "_3")) rbind(.data, new_data) } @@ -16,7 +18,7 @@ make_double_entered <- function(.data) { summarize_results <- function(.results) { results_df <- summary(.results) results_df <- as.data.frame(results_df$coefficients) - return(results_df) + results_df }