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

2
R/analyze.R
View file

@ -15,7 +15,7 @@
#'
#' @export
analyze <- function(preset, progress = NULL) {
if (class(preset) != "geposan_preset") {
if (!inherits(preset, "geposan_preset")) {
stop("Preset is invalid. Use geposan::preset() to create one.")
}

2
R/comparison.R
View file

@ -18,7 +18,7 @@
#'
#' @export
compare <- function(ranking, comparison_gene_ids) {
if (!"geposan_ranking" %chin% class(ranking)) {
if (!inherits(ranking, "geposan_ranking")) {
stop("Invalid ranking. Use geposan::ranking().")
}

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().")
}

2
R/validate.R
View file

@ -12,7 +12,7 @@
#'
#' @export
validate <- function(analysis, progress = NULL) {
if (class(analysis) != "geposan_analysis") {
if (inherits(analysis, "geposan_analysis")) {
stop("Analysis is invalid. Use geposan::analyze().")
}