R/is.mitml.list.R

Defines functions is.mitml.list

Documented in is.mitml.list

is.mitml.list <- function(x){
# checks if the argument is a list of class "mitml.list"

  l <- inherits(x, "mitml.list") & is.list(x)
  if(!l){
    return(FALSE)
  }else{
    if(any(!sapply(x, is.data.frame))) warning("Does not appear to be a list of data frames.")
    return(TRUE)
  }

}

Try the mitml package in your browser

Any scripts or data that you put into this service are public.

mitml documentation built on Jan. 6, 2023, 5:17 p.m.