--- a/scripts/pseudotemporal.R	Wed Aug 24 18:11:37 2022 +0000
+++ b/scripts/pseudotemporal.R	Tue Nov 05 16:33:10 2024 +0000
@@ -4,8 +4,8 @@
 args <- commandArgs(trailingOnly = T) # nolint
 
 if (length(args) != 1) {
-     message(paste("VERSION:", VERSION))
-     stop("Please provide the config file")
+    message(paste("VERSION:", VERSION))
+    stop("Please provide the config file")
 }
 
 suppressWarnings(suppressPackageStartupMessages(require(RaceID)))
@@ -29,20 +29,31 @@
     ltr <- do.call(comppvalue, c(ltr, pstc.comppval))
     x <- do.call(compscore, c(ltr, pstc.compscore))
     print(do.call(mtext, c("Compute Score", test)))
-    print(do.call(mtext, c(paste0("No. of inter-cluster links / ",
-                                  "Delta median entropy of each cluster / ",
-                                  "StemID2 score (combination of both)"),
-                           second)))
+    print(do.call(mtext, c(
+        paste0(
+            "No. of inter-cluster links / ",
+            "Delta median entropy of each cluster / ",
+            "StemID2 score (combination of both)"
+        ),
+        second
+    )))
     plotdistanceratio(ltr)
     print(do.call(mtext, c("Cell-to-Cell Distance Ratio", test)))
-    print(do.call(mtext, c("Original vs High-dimensional Embedded Space",
-                           second)))
+    print(do.call(mtext, c(
+        "Original vs High-dimensional Embedded Space",
+        second
+    )))
     do.call(plotgraph, c(ltr, pstc.plotgraph))
     print(do.call(mtext, c(paste0(c("Lineage Trajectories", rep(" ", 54)),
-                                  collapse = ""), test)))
-    print(do.call(mtext, c(paste0(c(paste0("Colour = Level of Significance, ",
-                                           "Width = Link Score"),
-                                    rep(" ", 106)), collapse = ""), second)))
+        collapse = ""
+    ), test)))
+    print(do.call(mtext, c(paste0(c(
+        paste0(
+            "Colour = Level of Significance, ",
+            "Width = Link Score"
+        ),
+        rep(" ", 106)
+    ), collapse = ""), second)))
     plotspantree(ltr)
     print(do.call(mtext, c("Minimum Spanning Tree", test)))
     plotspantree(ltr, projections = TRUE)