switch class to inherits

drieslab · Oct 29, 2020 · 97bd2f7 · 97bd2f7
1 parent 58f4fe7
commit 97bd2f7
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/R/auxiliary_giotto.R b/R/auxiliary_giotto.R
@@ -215,17 +215,17 @@ logNorm_giotto = function(mymatrix, base, offset) {
 #'
 pDataDT <- function(gobject) {
 
-  if(!class(gobject) %in% c('ExpressionSet', 'SCESet', 'seurat', 'giotto')) {
+  if(!inherits(gobject, c('ExpressionSet', 'SCESet', 'seurat', 'giotto'))) {
     stop('only works with ExpressionSet (-like) objects')
   }
 
-  if(class(gobject) %in% c('ExpressionSet', 'SCESet')) {
+  if(inherits(gobject, c('ExpressionSet', 'SCESet'))) {
     return(data.table::as.data.table(Biobase::pData(gobject)))
   }
-  else if(class(gobject) == 'giotto') {
+  else if(inherits(gobject, 'giotto')) {
     return(gobject@cell_metadata)
   }
-  else if(class(gobject) == 'seurat') {
+  else if(inherits(gobject, 'seurat')) {
     return(data.table::as.data.table(gobject@meta.data))
   }
 
@@ -243,10 +243,10 @@ pDataDT <- function(gobject) {
 #'
 fDataDT <- function(gobject) {
 
-  if(!class(gobject) %in% c('ExpressionSet', 'SCESet', 'giotto')) {
+  if(!inherits(gobject, c('ExpressionSet', 'SCESet', 'giotto'))) {
     stop('only works with ExpressionSet (-like) objects')
   }
-  else if(class(gobject) == 'giotto') {
+  else if(inherits(gobject,'giotto')) {
     return(gobject@gene_metadata)
   }
   return(data.table::as.data.table(Biobase::fData(gobject)))