Style code (GHA)

bigomics · Aug 24, 2024 · 239654a · 239654a
1 parent 04a9fdf
commit 239654a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/gset-meta.r b/R/gset-meta.r
@@ -479,7 +479,7 @@ gset.fitContrastsWithAllMethods <- function(gmt,
   ## v.3.5.0 we use average relative expression instead of average
   ## expression.
   ng <- Matrix::colSums(G != 0)
-  mX <- X - rowMeans(X, na.rm=TRUE) ## see note above
+  mX <- X - rowMeans(X, na.rm = TRUE) ## see note above
   meta.matrix <- as.matrix(Matrix::t(G != 0) %*% mX) / ng
 
   m[["meta"]] <- meta.matrix

diff --git a/R/pgx-read.R b/R/pgx-read.R
@@ -312,7 +312,7 @@ read_samples <- function(file) {
   is_valid <- validate_samples(df)
   if (!is_valid) {
     message("[read_samples] ERROR: Samples file is not valid.")
-    return(NULL)    
+    return(NULL)
   }
   df <- as.data.frame(df)
   return(df)
@@ -333,7 +333,7 @@ read_contrasts <- function(file) {
   is_valid <- validate_contrasts(df)
   if (!is_valid) {
     message("[read_contrasts] ERROR: Contrasts file is not valid.")
-    return(NULL)        
+    return(NULL)
   }
 
   df
@@ -351,7 +351,7 @@ read_annot <- function(file, unique = TRUE) {
     df <- file
   } else {
     message("[read_annot] ERROR: Annot file is not valid.")
-    return(NULL)        
+    return(NULL)
   }
 
   ## add column title