Style code (GHA)

bigomics · Dec 22, 2023 · 5ba90ab · 5ba90ab
1 parent 6220dce
commit 5ba90ab
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/compute2-extra.R b/R/compute2-extra.R
@@ -447,7 +447,7 @@ compute_drugActivityEnrichment <- function(pgx, libx.dir = NULL) {
       rowid <- data.table::chmatch(rownames(X), pgx$genes$human_ortholog, nomatch = NA)
       rownames(X) <- pgx$genes$gene_name[rowid]
       X <- X[!is.na(rowid), , drop = FALSE]
-    } 
+    }
 
     xdrugs <- gsub("[_@].*$", "", colnames(X))
     ndrugs <- length(table(xdrugs))

diff --git a/R/pgx-contrasts.R b/R/pgx-contrasts.R
@@ -395,7 +395,7 @@ pgx.makeAutoContrastsStratified <- function(df, strata.var, mingrp = 3, max.leve
   ## sample-wise contrasts
   rownames(ct.all) <- ct.all[, "sample"]
   ct.all <- as.matrix(ct.all[, -1, drop = FALSE]) ## drop sample column
-  ct.all <- ct.all[match(rownames(df), rownames(ct.all)), , drop = FALSE ]
+  ct.all <- ct.all[match(rownames(df), rownames(ct.all)), , drop = FALSE]
   rownames(ct.all) <- rownames(df)
   ct.all[is.na(ct.all)] <- 0