johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-25 19:37:23 +02: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

2
R/method.R
View file

@ -19,7 +19,7 @@ method <- function(id, name, description, func) {
structure(
list(
id = id,
id = glue::glue("geposan_method_{id}"),
name = name,
description = description,
func = func

2
R/method_adjacency.R
View file

@ -55,7 +55,7 @@ adjacency <- function(id = "adjacency",
reference_gene_ids <- preset$reference_gene_ids
cached(
"adjacency",
id,
c(
species_ids,
gene_ids,

2
R/method_clustering.R
View file

@ -76,7 +76,7 @@ clustering <- function(id = "clustering",
gene_ids <- preset$gene_ids
cached(
"clustering",
id,
c(species_ids, gene_ids, span, weight),
{ # nolint
scores <- data.table(gene = gene_ids)

2
R/method_correlation.R
View file

@ -24,7 +24,7 @@ correlation <- function(id = "correlation",
reference_gene_ids <- preset$reference_gene_ids
cached(
"correlation",
id,
c(species_ids, gene_ids, reference_gene_ids, summarize),
{ # nolint
# Prefilter distances by species.

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 &

2
R/method_neural.R
View file

@ -33,7 +33,7 @@ neural <- function(id = "neural",
reference_gene_ids <- preset$reference_gene_ids
cached(
"neural",
id,
c(
species_ids,
gene_ids,