simulator function assigned via string

(allows functions external to the package to pass into parallel simulation calls)

R/ModelSimulator.R

@@ -186,6 +186,9 @@ ModelSimulator <- R6Class("ModelSimulator",
  if (is.null(value) || is.function(value) ||
  (is.character(value) &&
  tryCatch(is.function(eval(parse(text = value))), error = function(e) FALSE))) {
+ if (is.character(value)) {
+ value <- eval(parse(text = value))
+ }
  private$.simulation_function <- value
  } else {
  stop(paste("Could not assign function", value), call. = FALSE)

tests/testthat/test_simulation_manager.R

@@ -6,9 +6,9 @@ test_that("initialization and parameter setting", {
  expect_is(sim_manager$model_simulator, "ModelSimulator")
  expect_null(sim_manager$model_simulator$simulation_function)
  sim_manager$model_template <- PopulationModel$new()
- expect_equal(sim_manager$model_simulator$simulation_function, "population_simulator")
+ expect_true(is.function(sim_manager$model_simulator$simulation_function))
  sim_manager <- SimulationManager$new(model_template = PopulationModel$new())
- expect_equal(sim_manager$model_simulator$simulation_function, "population_simulator")
+ expect_true(is.function(sim_manager$model_simulator$simulation_function))
  # Invalid attributes
  expect_error(sim_manager$model_template <- "dummy",
  "Model template must be a SimulationModel or inherited class object")