R/slimmr_user_duplicate_block.R

In ErikSRoeed/slimmr: SLiM Models in R

#' Duplicates a block in a slimmr SLiM model.
#'
#' @description Duplicates one Eidos block in a slimmr SLiM model.
#'
#' @param slim_model An EidosModel object.
#' @param block_index Integer index: block to duplicate.
#' @param after_block Integer index: which block to add duplicate block after?
#'
#' @export
#'
duplicate_block <- function(slim_model, block_index, after_block)
{
  original_block <- slim_model$blocks[[block_index]]

  add_blocks(
    slim_model = slim_model,
    blocks_script = original_block$get_lines_as_character(),
    after_block = after_block
  )
}