fix is/class code for CRAN

eblondel · Aug 19, 2022 · 6d43402 · 6d43402
1 parent 166139e
commit 6d43402
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/geometa_mapping.R b/R/geometa_mapping.R
@@ -815,7 +815,7 @@ convert_metadata <- function(obj, from, to, mappings, verbose = FALSE){
 #' @param x a \code{data.frame} containing the metadata mapping rules
 #'
 registerMappings <- function(x){
-  if(class(x)!="data.frame"){
+  if(!is(x,"data.frame")){
     stop("The object containing the mapping rules should be a 'data.frame'")
   }
   .geometa.mappings$rules <- x