R/set_separator.R

In jazznbass/scplot: Plot Function for Single-Case Data Frames

#' Set separator line in an scplot
#'
#' @inheritParams .inherit_scplot
#' @param ... List with line parameters (`"colour"", "linewidth", "linetype"`).
#' @return An object of class `scplot` (see[scplot()]).
#' @export
set_separator <- function(object, ...) {

  args <- list(...)
  object$theme$separators <- .merge_element(
    args, object$theme$separators
  )

  object
}