Mercurial > repos > iuc > isoformswitchanalyzer

diff IsoformSwitchAnalyzeR.R @ 4:8575def9219d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/isoformswitchanalyzer commit fa9a0a8f71ce6da2cd790474454776a9601968c3
author iuc
date Tue, 30 May 2023 08:39:02 +0000
parents bc68526d0e69
children 69fa05891f9d
line wrap: on
line diff
--- a/IsoformSwitchAnalyzeR.R	Wed May 24 13:33:37 2023 +0000
+++ b/IsoformSwitchAnalyzeR.R	Tue May 30 08:39:02 2023 +0000
@@ -893,6 +893,32 @@
       row.names = FALSE
     )
 
+    write.table(
+      SwitchList$switchConsequence,
+      file = "switchConsequence_fulldata.tsv",
+      quote = FALSE,
+      sep = "\t",
+      col.names = TRUE,
+      row.names = FALSE
+    )
+
+    write.table(
+      SwitchList$AlternativeSplicingAnalysis,
+      file = "switchSplicing_fulldata.tsv",
+      quote = FALSE,
+      sep = "\t",
+      col.names = TRUE,
+      row.names = FALSE
+    )
+
+    write.table(
+      SwitchList$isoformFeatures,
+      file = "IsoformFeatures.tsv",
+      quote = FALSE,
+      sep = "\t",
+      col.names = TRUE,
+      row.names = FALSE
+    )
 
     ### Volcano like plot:
     outputFile <- file.path(getwd(), "volcanoPlot.pdf")