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

Add framework for progress information

Browse source
This commit is contained in:
Elias Projahn 2021-10-19 15:03:10 +02:00
parent 16e83d38a8
commit 37f468658c
6 changed files with 76 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

14
R/clusteriness.R
View file

@ -36,7 +36,7 @@ clusteriness_priv <- function(data, height = 1000000) {
}
# Process genes clustering their distance to telomeres.
clusteriness <- function(distances, preset) {
clusteriness <- function(distances, preset, progress = NULL) {
results <- data.table(gene = preset$gene_ids)
# Prefilter the input data by species.
@ -45,9 +45,19 @@ clusteriness <- function(distances, preset) {
# Add an index for quickly accessing data per gene.
setkey(distances, gene)
genes_done <- 0
genes_total <- length(preset$gene_ids)
# Perform the cluster analysis for one gene.
compute <- function(gene_id) {
clusteriness_priv(distances[gene_id, distance])
score <- clusteriness_priv(distances[gene_id, distance])
if (!is.null(progress)) {
genes_done <<- genes_done + 1
progress(genes_done / genes_total)
}
score
}
results[, score := compute(gene), by = 1:nrow(results)]