Start adding an UI using Shiny

server.R

@@ -0,0 +1,23 @@
+library(data.table)
+library(DT)
+library(shiny)
+
+source("data.R")
+source("scatter_plot.R")
+
+data <- load_data_cached("input")
+
+server <- function(input, output) {
+    output$genes <- renderDT({
+        datatable(
+            data$genes[, c("name", "chromosome")],
+            rownames = FALSE,
+            style = "bootstrap"
+        )
+    })
+
+    output$scatter <- renderPlot({
+        gene_ids <- data$genes[input$genes_rows_selected, id]
+        scatter_plot(gene_ids, data)
+    })
+}