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

Namespace all method IDs

Browse source
This commit is contained in:
Elias Projahn 2022-08-12 12:41:56 +02:00
parent 038208bfbd
commit 60dc05f6c6
6 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
R/method_distance.R
View file

@ -14,9 +14,9 @@
#'
#' @export
distance <- function(id = "distance",
name = "Distance",
description = "Distance to telomeres",
summarize = stats::median) {
name = "Distance",
description = "Distance to telomeres",
summarize = stats::median) {
method(
id = id,
name = name,
@ -25,7 +25,7 @@ distance <- function(id = "distance",
species_ids <- preset$species_ids
gene_ids <- preset$gene_ids
cached("distance", c(species_ids, gene_ids), {
cached(id, c(species_ids, gene_ids), {
# Prefilter distances by species and gene.
data <- geposan::distances[
species %chin% preset$species_ids &