mirror of
https://github.com/johrpan/geposanui.git
synced 2025-10-26 11:17:24 +01:00
Move caching to geposan
This commit is contained in:
parent
33c8292690
commit
4cf5bff125
2 changed files with 3 additions and 34 deletions
11
R/server.R
11
R/server.R
|
|
@ -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)
|
||||
})
|
||||
}
|
||||
)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue