inst/maintenance/build_housemodel.R

In metrumresearchgroup/mrgsolve: Simulate from ODE-Based Models

suppressPackageStartupMessages(library(dplyr))
suppressPackageStartupMessages(library(methods))
suppressPackageStartupMessages(library(glue))
suppressPackageStartupMessages(library(tools))
fun <- function() {
  setClass("mrgsims")
  source("R/utils.R")
  setClass("mrgsims")
  source("R/generics.R")
  source("R/class_build.R")
  source("R/class_ev.R")
  source("R/class_matlist.R")
  source("R/class_numericlist.R")
  source("R/class_derived.R")
  source("R/class_mrgmod.R")
  source("R/mread.R")
  source("R/handle_spec_block.R")
  source("R/modspec.R")
  source("R/compile.R")
  source("R/Aaaa.R")
  source("R/annot.R")
  source("R/matrix.R")
  source("R/matlist.R")
  source("R/relabel.R")
  source("R/model_include.R")
  source("R/param.R")
  source("R/init.R")
  source("R/funset.R")
  source("R/update.R")
  source("R/env.R")
  proj <- file.path("inst", "project")
  mod <- mread("housemodel", proj, compile = FALSE, udll=FALSE, ns = FALSE)
  cpp <- normalizePath(list.files(mod@soloc, full.names=TRUE))
  x <- file.copy(cpp, "src", overwrite=TRUE)
  if(!all(x)) stop("Failed to build house model")
}

fun()
rm(list=ls())