R/misc.R

In machow/lavtools: Helper functions for constructing lavaan models

#' Write model file and instance to disk
#'
#' @param bundle output from \code{\link{expand_mod}}
#' @param model_file path to save mod string
#' @param inst_file path to save mod_inst string
#' @export
write_model <- function(bundle, model_file = "", inst_file = "") {
  # write lavaan model
  if (length(model_file))
    cat(bundle$mod, file=model_file)
  # write lavaan model with pars filled in
  if (length(inst_file))
    args_comment <- sapply(unique(names(bundle$args)),
                           function(k, args) paste('#', k, ':', args[k]),
                           args=bundle$args)

  cat(file=inst_file, sep='\n',
      '# Model with following args set.. ', args_comment, bundle$mod_inst)
}