From ee77807d6e69faec749bba65856224fd4d0412d5 Mon Sep 17 00:00:00 2001
From: Craig Williams <craig@avsdev.uk>
Date: Tue, 3 Feb 2026 14:50:41 +0000
Subject: [PATCH] Fixed lintr & complexity issues

---
 R/adminLTEApplication.R    | 1 +
 R/frameApplication.R       | 1 +
 R/sessionLogger.R          | 7 ++++++-
 R/ufApplication.R          | 1 +
 R/ufDashboardApplication.R | 1 +
 R/ufFrameApplication.R     | 1 +
 6 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/R/adminLTEApplication.R b/R/adminLTEApplication.R
index 818fe05..b03cce0 100644
--- a/R/adminLTEApplication.R
+++ b/R/adminLTEApplication.R
@@ -1,5 +1,6 @@
 
 #' @export
+# nolint next: object_name_linter. R6Class
 AdminLTEApplication <- R6::R6Class(
   "AdminLTEApplication",
   inherit = FrameApplication,
diff --git a/R/frameApplication.R b/R/frameApplication.R
index 6e1f633..90cd006 100644
--- a/R/frameApplication.R
+++ b/R/frameApplication.R
@@ -1,5 +1,6 @@
 
 #' @export
+# nolint next: object_name_linter. R6Class
 FrameApplication <- R6::R6Class(
   "FrameApplication",
   public = list(
diff --git a/R/sessionLogger.R b/R/sessionLogger.R
index 482013e..f671f86 100644
--- a/R/sessionLogger.R
+++ b/R/sessionLogger.R
@@ -1,4 +1,5 @@
 #' @export
+# nolint next: object_name_linter. R6Class
 SessionLogger <- R6::R6Class(
   "SessionLogger",
   public = list(
@@ -32,7 +33,9 @@ SessionLogger <- R6::R6Class(
         if (getOption("debug", FALSE)) {
           cat("Using client IP from HTTP_X_FORWARDED_FOR\n")
         }
-        client_ip <- strsplit(session$request$HTTP_X_FORWARDED_FOR, ",")[[1]][[1]]
+        client_ip <- strsplit(
+          session$request$HTTP_X_FORWARDED_FOR, ","
+        )[[1]][[1]]
       } else if ("REMOTE_ADDR" %in% names(session$request)) {
         if (getOption("debug", FALSE)) {
           cat("Using client IP from REMOTE_ADDR\n")
@@ -62,6 +65,7 @@ SessionLogger <- R6::R6Class(
 )
 
 #' @export
+# nolint next: object_name_linter. R6Class
 SessionLoggerConsole <- R6::R6Class(
   "SessionLoggerConsole",
   inherit = SessionLogger,
@@ -89,6 +93,7 @@ SessionLoggerConsole <- R6::R6Class(
 )
 
 #' @export
+# nolint next: object_name_linter. R6Class
 SessionLoggerDB <- R6::R6Class(
   "SessionLoggerDB",
   inherit = SessionLogger,
diff --git a/R/ufApplication.R b/R/ufApplication.R
index 34ff396..1af8741 100644
--- a/R/ufApplication.R
+++ b/R/ufApplication.R
@@ -1,4 +1,5 @@
 #' @export
+# nolint next: object_name_linter. R6Class
 UFApplication <- R6::R6Class(
   "UFApplication",
   inherit = AdminLTEApplication,
diff --git a/R/ufDashboardApplication.R b/R/ufDashboardApplication.R
index e4c1698..880f338 100644
--- a/R/ufDashboardApplication.R
+++ b/R/ufDashboardApplication.R
@@ -1,4 +1,5 @@
 #' @export
+# nolint next: object_name_linter. R6Class
 UFDashboardApplication <- R6::R6Class(
   "UFDashboardApplication",
   inherit = UFApplication,
diff --git a/R/ufFrameApplication.R b/R/ufFrameApplication.R
index 3feb928..f8dac55 100644
--- a/R/ufFrameApplication.R
+++ b/R/ufFrameApplication.R
@@ -1,4 +1,5 @@
 #' @export
+# nolint next: object_name_linter. R6Class
 UFFrameApplication <- R6::R6Class(
   "UFFrameApplication",
   inherit = UFApplication,