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,