Rename format_for_return() -> new_RtGam()

CDCgov · Aug 29, 2024 · eed7b48 · eed7b48
1 parent 6bfb09d
commit eed7b48
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git 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
@@ -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,