#' @rdname wield
#'
#' @param constraint A constraint object
#'
#' @importFrom rlang enquo
#' @export
#'
impose <- function(simulation, constraint, ..., name, include = TRUE) {
stopifnot(is.simulation(simulation))
stopifnot(is.constraint(constraint))
include <- enquo(include)
universe(simulation) <- add_constraint(
universe(simulation),
name = name,
train_constraint(constraint, particles(simulation), ..., include = include)
)
simulation
}
#' @rdname wield
#' @export
reimpose <- function(simulation, name, ...) {
stopifnot(is.simulation(simulation))
universe(simulation) <- modify_constraint(
universe(simulation),
name = name,
retrain_constraint(get_constraint(universe(simulation), name), particles(simulation), ...)
)
simulation
}
#' @rdname wield
#' @export
unimpose <- function(simulation, name) {
stopifnot(is.simulation(simulation))
universe(simulation) <- remove_constraint(universe(simulation), name)
simulation
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.