fix small issue

James-Thorson-NOAA · Jan 18, 2024 · 875a7fe · 875a7fe
1 parent 74c7203
commit 875a7fe
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -27,6 +27,7 @@ importFrom(TMB,sdreport)
 importFrom(ape,Ntip)
 importFrom(ape,node.depth.edgelength)
 importFrom(ape,rtree)
+importFrom(methods,is)
 importFrom(phylobase,phylo4d)
 importFrom(phylopath,average_DAGs)
 importFrom(phylopath,coef_plot)

diff --git a/R/phylosem.R b/R/phylosem.R
@@ -51,6 +51,7 @@
 #' @importFrom phylobase phylo4d
 #' @importFrom ape Ntip node.depth.edgelength rtree
 #' @importFrom TMB compile dynlib MakeADFun sdreport
+#' @importFrom methods is
 #'
 #' @return
 #' An object (list) of class `phylosem`. Elements include:
@@ -241,13 +242,13 @@ function( sem,
     specifyModel( text=sem, exog.variances=TRUE, endog.variances=TRUE, covs=covs, quiet=control$quiet ),
     error = function(e) e
   )
-  if( isFALSE("semmod" %in% class(SEM_model)) ){
+  if( isFALSE(is(SEM_model,"semmod")) ){
     SEM_model = tryCatch(
       specifyEquations( text=sem, exog.variances=TRUE, endog.variances=TRUE, covs=covs ),
       error = function(e) e
     )
   }
-  if( isFALSE("semmod" %in% class(SEM_model)) ){
+  if( isFALSE(is(SEM_model,"semmod")) ){
     stop("Must supply either input for `sem::specifyModel` or `sem::specifyEquations`")
   }
   RAM = build_ram( SEM_model, colnames(data) )