R/4-musicxml-pedal.R

In flujoo/gm: Create Music with Ease

#' @keywords internal
#' @export
to_MusicXML.Pedal <- function(x, type, ...) {
  attributes <- list(type = type, sign = "yes", line = "no")
  musicxml <- MusicXML("pedal", NULL, attributes)
  musicxml <- MusicXML("direction-type", musicxml)
  MusicXML("direction", musicxml)
}


#' @keywords internal
#' @export
insert.Pedal <- function(x, to, ...) {
  insert_linelike(x, to)
}