Style code (GHA)

bigomics · Sep 14, 2023 · 87010f4 · 87010f4
1 parent eefcbba
commit 87010f4
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 15 deletions.
diff --git a/components/app/R/global.R b/components/app/R/global.R
@@ -191,7 +191,7 @@ if (is.null(opt$HOSTNAME) || opt$HOSTNAME == "") {
 }
 ACTIVE_SESSIONS <- c()
 MAX_SESSIONS <- 10
-if(!is.null(opt$MAX_SESSIONS)) MAX_SESSIONS <- opt$MAX_SESSIONS
+if (!is.null(opt$MAX_SESSIONS)) MAX_SESSIONS <- opt$MAX_SESSIONS
 
 message("\n\n")
 message("=================================================================")

diff --git a/components/app/R/server.R b/components/app/R/server.R
@@ -85,7 +85,7 @@ app_server <- function(input, output, session) {
     )
   } else if (authentication == "none2") {
     ## no authentication but also not showing main modal (enter)
-    username <- Sys.getenv("PLAYGROUND_USERNAME")      
+    username <- Sys.getenv("PLAYGROUND_USERNAME")
     auth <- NoAuthenticationModule(
       id = "auth",
       show_modal = FALSE,

diff --git a/components/modules/AuthenticationModule.R b/components/modules/AuthenticationModule.R
@@ -57,25 +57,26 @@ NoAuthenticationModule <- function(id,
       })
 
       output$login_warning <- shiny::renderText("")
-
-      shiny::observeEvent({
-        input$login_btn
-      }, {
-
-        shiny::removeModal()
-        USER$logged <- TRUE
 
-        ## set options. NEED RETHINK!!! should we allow USERDIR???
-        ## should we allow OPTIONS???
-        USER$options <- read_user_options(PGX.DIR)
+      shiny::observeEvent(
+        {
+          input$login_btn
+        },
+        {
+          shiny::removeModal()
+          USER$logged <- TRUE
+
+          ## set options. NEED RETHINK!!! should we allow USERDIR???
+          ## should we allow OPTIONS???
+          USER$options <- read_user_options(PGX.DIR)
 
-        if(!is.null(username) && username!="") {
+          if (!is.null(username) && username != "") {
             USER$username <- username
             USER$email <- email
             ## dbg("[NoAuthenticationModule] setting username=",username)
+          }
         }
-
-      })
+      )
 
       ## export 'public' function
       USER$resetUSER <- resetUSER