inst/shiny-examples/aba/server.R

In hypercompetent/xstitch: Cross-stitch pattern generation.

library(shiny)
library(ggplot2)

aba_annotation_arr <- readRDS("aba_merged_annotation_id_array.RData")
aba_annotation_df <- readRDS("aba_merged_annotation_df.RData")
array_dims <- c(67, 41, 58)

server <- function(input, output) {

}