Linted code.

R/run_limma.R

@@ -34,7 +34,7 @@ run_limma <- function(pheno_data, eset, limma_parameters,
   # If necessary we add a block based on a co-factor.
   # For instance, if we have paired samples.
   if (has_block) {
-    clinical_cofactor <- factor(pheno_data[[cofactor_name]])
+    clinical_cofactor <- factor(pheno_data[[cofactor_name]]) # nolint
     design            <- stats::model.matrix(~ 0 + clinical + clinical_cofactor)
     colnames(design)  <- c(levels(clinical), cofactor_name)
   }