Fixed lintr & complexity issues

R/adminLTEApplication.R

@@ -1,5 +1,6 @@
 
 #' @export
+# nolint next: object_name_linter. R6Class
 AdminLTEApplication <- R6::R6Class(
   "AdminLTEApplication",
   inherit = FrameApplication,

R/frameApplication.R

@@ -1,5 +1,6 @@
 
 #' @export
+# nolint next: object_name_linter. R6Class
 FrameApplication <- R6::R6Class(
   "FrameApplication",
   public = list(

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,

R/ufApplication.R

@@ -1,4 +1,5 @@
 #' @export
+# nolint next: object_name_linter. R6Class
 UFApplication <- R6::R6Class(
   "UFApplication",
   inherit = AdminLTEApplication,

R/ufDashboardApplication.R

@@ -1,4 +1,5 @@
 #' @export
+# nolint next: object_name_linter. R6Class
 UFDashboardApplication <- R6::R6Class(
   "UFDashboardApplication",
   inherit = UFApplication,

R/ufFrameApplication.R

@@ -1,4 +1,5 @@
 #' @export
+# nolint next: object_name_linter. R6Class
 UFFrameApplication <- R6::R6Class(
   "UFFrameApplication",
   inherit = UFApplication,