R/4-musicxml-accidental.R

In gm: Create Music with Ease

Defines functions insert.Accidental to_MusicXML.Accidental

Documented in insert.Accidental to_MusicXML.Accidental

#' @keywords internal
#' @export
to_MusicXML.Accidental <- function(x, ...) {
  MusicXML(
    "accidental",
    x[["name"]],
    if (x[["bracket"]]) list(parentheses = "yes") else NULL
  )
}


#' @keywords internal
#' @export
insert.Accidental <- function(x, to, ...) {
  insert_note_child(x, to, "first")
}

Try the gm package in your browser