Test if a list is.mids() when running runMI()

[cddesja]

I would expect the following to work based on the semTools help page:

library(mice)
library(semTools)

# impute data
imp <- mice(nhanes, m = 5, seed = 54321)

# check that imp is a list as sem.mi  as manual says “Ignored if data is already a list of imputed data set”
is.list(imp)

# create simple lavaan model 
mod <- "
 chl ~ 1 + age + bmi + hyp
“

# mi runs(?) and complains 
fit.mi <- sem.mi(model = mod, data = imp)
summary(fit.mi)

However, it doesn't. I have fixed this by adding the following to runMI():

else if (is.list(data)) {
    if(is.mids(data)){
      m <- data$m
      imputedData <- list()
      for(i in 1:m){
        imputedData[[i]] <- complete(data, i)
      } 
      imputeCall <- list()
      class(imputedData) <- "list"
    } else {
      seed <- integer(length = 0)
      imputeCall <- list()
      imputedData <- data
      m <- length(data)
      class(imputedData) <- "list"
    }
  }

I can submit a pull request.