update shiny doc

workflows/plot_shinyApp.Rmd → workflows/shiny_plots.Rmd

 ---
-title: "Plot RNASeq data mapped against Talinum genome"
+title: "Plot Talinum RNASeq data"
 output: html_document
 runtime: shiny
 ---
@@ -41,7 +41,7 @@ for(package in required.packages)
 ```
 
 
-```{r, eval=F, echo=FALSE}
+```{r, eval = FALSE, echo = FALSE}
 
 
 # Non-interactive test
@@ -58,9 +58,10 @@ ggplot(plot_set, aes(x = Photosynthesis.mode, y = tpm, group = Photosynthesis.mo
 
 ```
 
-# Let it shine
 
-```{r shiny_part, echo=FALSE}
+```{r shiny_part, echo=FALSE, message = F, error = FALSE, warning=FALSE}
+
+# Let it shine
 
 sidebarLayout(
   
@@ -68,9 +69,9 @@ sidebarLayout(
     
     selectizeInput(multiple = T, "target", label = "Select Gene by target id",
                    choices = available_genes, 
-                   selected = sample(available_genes, size = 1),
+                   selected = sample(available_genes, size = 3),
                    options = list(delimiter = ' ',
-                                  create = I("function(input, callback){return {value: input, text: input};}"))
+                   create = I("function(input, callback){return {value: input, text: input};}"))
     ),
     helpText("You can copy/paste target ids from excel")
     
@@ -103,5 +104,3 @@ sidebarLayout(
 
 
 ```
-
-