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

Restructure classes and their responsibilities

Browse source
This commit is contained in:
Elias Projahn 2021-12-16 13:01:44 +01:00
parent 01ec301d6d
commit e2b93babe5
27 changed files with 974 additions and 634 deletions
Download patch file Download diff file Expand all files Collapse all files

12
R/ranking.R
View file

@ -13,10 +13,10 @@
#'
#' @export
ranking <- function(analysis, weights) {
if (inherits(analysis, "geposan_analysis")) {
ranking <- copy(analysis$ranking)
} else if (inherits(analysis, "geposan_results")) {
ranking <- copy(analysis)
ranking <- if (inherits(analysis, "geposan_analysis")) {
copy(analysis$scores)
} else if (inherits(analysis, "geposan_ranking")) {
copy(analysis)
} else {
stop("Invalid analyis. Use geposan::analyze().")
}
@ -39,7 +39,7 @@ ranking <- function(analysis, weights) {
structure(
ranking,
class = c("geposan_ranking", "geposan_results", class(ranking))
class = c("geposan_ranking", class(ranking))
)
}
@ -60,7 +60,7 @@ ranking <- function(analysis, weights) {
#' @export
optimal_weights <- function(analysis, methods, reference_gene_ids,
target = "mean") {
if (!inherits(analysis, c("geposan_analysis", "geposan_results"))) {
if (!inherits(analysis, c("geposan_analysis", "geposan_ranking"))) {
stop("Invalid analyis. Use geposan::analyze().")
}