From 8be1418a3218b556967703fb1d48c9e1ebc8a00f Mon Sep 17 00:00:00 2001
From: Tanushree Tunstall <tanu@tunstall.in>
Date: Thu, 10 Sep 2020 19:16:24 +0100
Subject: [PATCH] saving work

---
 scripts/plotting/other_plots_data.R | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/scripts/plotting/other_plots_data.R b/scripts/plotting/other_plots_data.R
index 1a0d73e..b25e653 100644
--- a/scripts/plotting/other_plots_data.R
+++ b/scripts/plotting/other_plots_data.R
@@ -18,6 +18,17 @@ source("combining_dfs_plotting.R")
 rm(merged_df2, merged_df2_comp, merged_df2_lig, merged_df2_comp_lig
    , merged_df3_comp, merged_df3_comp_lig
    , my_df_u, my_df_u_lig)
+
+
+cols_to_select = c("mutation", "mutationinformation"
+                   , "wild_type", "position", "mutant_type"
+                   , "mutation_info")
+
+merged_df3_short = merged_df3[, cols_to_select]
+
+# write merged_df3 to generate structural figure
+write.csv(merged_df3_short, "merged_df3_short.csv")
+
 #========================================================================
 #%%%%%%%%%%%%%%%%%%%
 # REASSIGNMENT: PS
@@ -74,6 +85,7 @@ if ( table(dr_muts_names%in%other_muts_names)[[1]] == length(dr_muts_names) &&
   quit()
 }
 
+
 #%%%%%%%%%%%%%%%%%%%
 # REASSIGNMENT: LIG
 #%%%%%%%%%%%%%%%%%%%%