Add a generic caching function

This commit is contained in:
Elias Projahn 2021-08-25 11:59:27 +02:00
parent 400ca776e0
commit abab22a907
4 changed files with 32 additions and 25 deletions

View file

@ -4,8 +4,9 @@ library(shiny)
source("data.R")
source("scatter_plot.R")
source("util.R")
data <- load_data_cached("input")
data <- run_cached("input", load_data, "input")
server <- function(input, output) {
output$genes <- renderDT({