polish shiny

workflows/shiny_plots.Rmd

@@ -18,6 +18,7 @@ load(file = "../runs/shiny_prep/shiny_prep.RData")
 
 
 ```{r load_libraries, message=TRUE, warning=TRUE, include=FALSE}
+
 # Load libraries
 
 library(kableExtra)
@@ -29,7 +30,6 @@ library(tidyverse)
 
 ```{r, eval = FALSE, echo = FALSE}
 
-
 # Non-interactive test
 
 current_selection <- sample(expression_data$target_id, 10)