diff --git a/workflows/plot_shinyApp.Rmd b/workflows/shiny_plots.Rmd similarity index 86% rename from workflows/plot_shinyApp.Rmd rename to workflows/shiny_plots.Rmd index a71064203f9bdc293879516523fd44ef5accf128..08e245ce822eb7f053f76ec7148c92dad73be27c 100644 --- a/workflows/plot_shinyApp.Rmd +++ b/workflows/shiny_plots.Rmd @@ -1,5 +1,5 @@ --- -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( ``` - -