Move caching to geposan

This commit is contained in:
Elias Projahn 2021-10-21 17:26:28 +02:00
parent 33c8292690
commit 4cf5bff125
2 changed files with 3 additions and 34 deletions

View file

@ -30,14 +30,9 @@ server <- function(input, output, session) {
results <- withProgress(
message = "Analyzing genes",
value = 0.0, {
run_cached(
rlang::hash(preset),
geposan::analyze,
preset,
function(progress) {
setProgress(progress)
}
)
geposan::analyze(preset, function(progress) {
setProgress(progress)
})
}
)