R/syntax-get_data.R

In tidySEM: Tidy Structural Equation Modeling

# @title Get data from model object
# @description Extracts data from an object for which a method exists.
# @param x An object for which a method exists.
# @param ... Additional arguments passed to and from functions.
# @return A \code{data.frame}.
# @examples
# \dontrun{
# if(interactive()){
#  #EXAMPLE1
#  }
# }
# @rdname mplus_data
# @export
mplus_data <- function(x, ...){
  UseMethod("mplus_data", x)
}

# @method mplus_data mplusObject
# @export
mplus_data.mplusObject <- function(x, ...){
  Args <- as.list(match.call()[-1])
  Args$x <- x$results
  do.call(mplus_data, Args)
}

# @method mplus_data mplus.model
# @export
#' @importFrom utils read.table
mplus_data.mplus.model <- function(x, ...){
  df <- read.table(x$input$data$file, stringsAsFactors = FALSE)
  names(df) <- mplus_expand_names(x$input$variable$names) #strsplit(x$input$variable$names, split = "\\s+")[[1]]
  df
}