Linting

AstraZeneca-Omics · Sep 28, 2023 · 7d04800 · 7d04800
1 parent 57a1c50
commit 7d04800
Showing 1 changed file with 10 additions and 9 deletions.
diff --git a/flowtools/flowsom_tree/FlowSOMGenerateTree.R b/flowtools/flowsom_tree/FlowSOMGenerateTree.R
@@ -53,7 +53,9 @@ generate_tree <- function(ff, output = "", columns = list(),
     dev.off()
   }
   meta_c <- metaClustering_consensus(
-                fst$map$codes, k = cluster, seed = user_seed)
+                                     fst$map$codes,
+                                     k = cluster,
+                                     seed = user_seed)
 
   if (!plot == "") {
     if (flag_nodesize) {
@@ -102,13 +104,12 @@ generate_tree <- function(ff, output = "", columns = list(),
 }
 
 flow_frame_or_fcs <- function(input, output = "", columns = list(),
-                           cluster = 10, xgrid = 10,
-                           ygrid = 10, plot = "", plot_pdf = FALSE,
-                           mplot = "", default = TRUE,
-                           table = "", mtable = "",
-                           flag_meta = FALSE, user_seed = 42,
-                           nodesize = FALSE) {
-  isValid <- FALSE
+                              cluster = 10, xgrid = 10,
+                              ygrid = 10, plot = "", plot_pdf = FALSE,
+                              mplot = "", default = TRUE,
+                              table = "", mtable = "",
+                              flag_meta = FALSE, user_seed = 42,
+                              nodesize = FALSE) {
   is_fcs <- FALSE
   is_ff <- FALSE
   ff <- ""
@@ -138,7 +139,7 @@ flow_frame_or_fcs <- function(input, output = "", columns = list(),
       }
     }
     generate_tree(ff, output, columns, cluster, xgrid, ygrid, plot, plot_pdf,
-                 mplot, default, table, mtable, flag_meta, user_seed, nodesize)
+                  mplot, default, table, mtable, flag_meta, user_seed, nodesize)
   }
 }