Fixed lintr & complexity issues

R/UFApi.R

@@ -33,6 +33,7 @@ names(member_list) <- member_names
 NULL
 
 #' @export
+# nolint next: object_name_linter. R6Class
 UFApi <- R6::R6Class(
   "UFApi",
   public = fn_list,

R/UFDatabase.R

@@ -2,6 +2,7 @@
 #' @title UFDatabase
 #' @description UserFrosting Database class
 #' @export
+# nolint next: object_name_linter. R6Class
 UFDatabase <- R6::R6Class(
   "UFDatabase",
   public = list(

R/ufWrapApplication.R

@@ -29,15 +29,15 @@ ufWrapApplication <- function(
 
 
     isSessionRequired <- function() {
-      return(!(length(with_users) > 0 && !with_users))
+      !(length(with_users) > 0 && !with_users)
     }
 
     isSessionValid <- function() {
-      return(ufApi$verifyUFSession(shiny::getQueryString(session)))
+      ufApi$verifyUFSession(shiny::getQueryString(session))
     }
 
     isSessionOptional <- function() {
-      return(length(user_optional) > 0 && user_optional)
+      (length(user_optional) > 0 && user_optional)
     }
 
 
@@ -127,5 +127,5 @@ ufWrapApplication <- function(
     wrapped_server
   }
 
-  return(app)
+  app
 }