johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-26 18:57:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

analysis: Cache the analysis object itself

Browse source
This commit is contained in:
Elias Projahn 2021-11-18 15:18:07 +01:00
parent de1c1ed40e
commit b018838d37
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
R/analyze.R
View file

@ -47,7 +47,7 @@ analyze <- function(preset, progress = NULL) {
"proximity" = proximity "proximity" = proximity
) )
results <- cached("analysis", preset, { analysis <- cached("analysis", preset, {
total_progress <- 0.0 total_progress <- 0.0
method_count <- length(preset$methods) method_count <- length(preset$methods)
results <- data.table(gene = preset$gene_ids) results <- data.table(gene = preset$gene_ids)
@ -75,18 +75,18 @@ analyze <- function(preset, progress = NULL) {
total_progress <- total_progress + 1 / method_count total_progress <- total_progress + 1 / method_count
} }
results structure(
list(
preset = preset,
results = results
),
class = "geposan_analysis"
)
}) })
if (!is.null(progress)) { if (!is.null(progress)) {
progress(1.0) progress(1.0)
} }
structure( analysis
list(
preset = preset,
results = results
),
class = "geposan_analysis"
)
} }