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

Use inherits() for class checking

Browse source
This commit is contained in:
Elias Projahn 2021-12-13 09:50:45 +01:00
parent 207fc753a7
commit d98c70a205
4 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
R/ranking.R
View file

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