Add 3D model gene name default

rajewsky-lab · May 17, 2018 · fcf94a7 · fcf94a7
1 parent 85ee23f
commit fcf94a7
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/params.R b/params.R
@@ -30,7 +30,8 @@
 # change log (reverse chronological) #
 ######################################
 
-# 2018-04-13: added 3D model gene name input panel label parameter
+# 2018-04-13: added 3D model gene name input default parameter
+#             added 3D model gene name input panel label parameter
 #             removed un-needed parameters left over from sample shift/stretch input panels
 #             added default ymin/max values
 #             adjusted sample description and genotype defaults
@@ -498,6 +499,7 @@ if(!exists("params"))
       ,gene.table.xlsx.name = "gene_table.xlsx",
       model3d.tab.title = "3D model",
       gene3d.input.label = "Gene/miRNA name",
+      gene3d.input.default = "rpl-17",
 
 
   ##############

diff --git a/server.R b/server.R
@@ -30,7 +30,8 @@
 # change log (reverse chronological) #
 ######################################
 
-# 2018-04-13: replaced user specified sample shifts by defaults
+# 2018-04-13: added 3D model gene name default
+#             replaced user specified sample shifts by defaults
 #             replaced user specified sample description for heatmap by default
 #             added user specified smoothing span for 3D model
 #             added 3D model gene/genotype selection and CPM fitting support / fixed indentation
@@ -104,7 +105,7 @@ source("data.R")
 # define shiny server function parameters
 function(input, output, session){
   updateSelectizeInput(session, 'gene3d', choices = input.data$genes.name,
-                       server = TRUE)
+                       selected = params$gene3d.input.default, server = TRUE)
 
   # assign y-axis minimum input panel output
   output$manual.ymin.input<-