From 391615b096d73b045efbd2d087303d027df0f8cb Mon Sep 17 00:00:00 2001
From: kellijohnson-NOAA <4108564+kellijohnson-NOAA@users.noreply.github.com>
Date: Fri, 22 May 2026 13:12:30 +0000
Subject: [PATCH] chore: format feature branch

---
 R/fimsfit.R                   | 6 +++---
 tests/testthat/test-fimsfit.R | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/R/fimsfit.R b/R/fimsfit.R
index f9c7e1b46..65e0195c3 100644
--- a/R/fimsfit.R
+++ b/R/fimsfit.R
@@ -574,7 +574,7 @@ fit_fims <- function(input,
 
   if (is.null(opt)) {
     failed_nlminb_object <- return_failed_nlminb(obj)
-    failed_fit <-   fit <- FIMSFit(
+    failed_fit <- fit <- FIMSFit(
       input = input,
       obj = obj,
       opt = failed_nlminb_object[["opt"]],
@@ -608,7 +608,7 @@ fit_fims <- function(input,
           "i" = "The failed results are being returned."
         ))
         failed_nlminb_object <- return_failed_nlminb(obj)
-        failed_fit <-   fit <- FIMSFit(
+        failed_fit <- fit <- FIMSFit(
           input = input,
           obj = obj,
           opt = failed_nlminb_object[["opt"]],
@@ -721,7 +721,7 @@ try_nlminb <- function(object, control_list, starting_values) {
 }
 
 return_failed_nlminb <- function(object) {
-  failed_nlminb_message <-  c(
+  failed_nlminb_message <- c(
     "x" = "{.fun fit_fims} did not lead to a converged model.",
     "i" = "The resulting coefficients, probability values, or predictions are
     not accurate or stable and should not be used for management.",
diff --git a/tests/testthat/test-fimsfit.R b/tests/testthat/test-fimsfit.R
index b27410c23..8f2439f0d 100644
--- a/tests/testthat/test-fimsfit.R
+++ b/tests/testthat/test-fimsfit.R
@@ -238,7 +238,7 @@ test_that("fit_fims() errors when optimization fails to converge", {
         value = -Inf
       ),
       by = c("module_name", "label", "age")
-    )  |>
+    ) |>
     initialize_fims(data = data_4_model)
   test_results <- suppressWarnings(suppressMessages(
     fit_fims(initialized_poor_model, optimize = TRUE)
@@ -249,6 +249,6 @@ test_that("fit_fims() errors when optimization fails to converge", {
     names(get_opt(test_results)),
     c("par", "objective", "convergence", "message")
   )
-  
+
   clear()
 })