Use inherits() for class checking

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

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