From eed7b48e677fa27b93bbcd763555f5da690e521c Mon Sep 17 00:00:00 2001
From: Zachary Susswein <utb2@cdc.gov>
Date: Thu, 29 Aug 2024 10:05:42 -0400
Subject: [PATCH] Rename `format_for_return()` -> `new_RtGam()`

---
 R/RtGam.R |  2 +-
 R/print.R | 16 ++++++++--------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/R/RtGam.R b/R/RtGam.R
index 6f2ac40..33eec0c 100644
--- a/R/RtGam.R
+++ b/R/RtGam.R
@@ -97,7 +97,7 @@ RtGam <- function(cases,
   )
   diagnostics <- calculate_diagnostics(fit)
 
-  RtGam_object <- format_for_return(
+  RtGam_object <- new_RtGam(
     fit = fit,
     df = df,
     group = group,
diff --git a/R/print.R b/R/print.R
index b3f0e18..a00e379 100644
--- a/R/print.R
+++ b/R/print.R
@@ -1,13 +1,13 @@
 #' Format the RtGam object for return from the main function/constructor
 #' @noRd
-format_for_return <- function(fit,
-                              df,
-                              group,
-                              k,
-                              m,
-                              backend,
-                              formula,
-                              diagnostics) {
+new_RtGam <- function(fit,
+                      df,
+                      group,
+                      k,
+                      m,
+                      backend,
+                      formula,
+                      diagnostics) {
   formatted <- list(
     model = fit,
     data = df,