R/1-construct-music.R

In flujoo/gm: Create Music with Ease

#' Initialize `Music` Object
#'
#' Initialize a `Music` object. Other components can be added to it.
#'
#' @returns A list of class `Music`.
#'
#' @seealso [gm::+.Music()] for adding components to a `Music` object.
#'
#' @export
#'
#' @examples
#' # Initialize a `Music`
#' Music()
Music <- function() {
  structure(list(), class = "Music")
}


#' @export
print.Music <- function(x, ...) {
  cat("Music", "\n")
  if (length(x) == 0) return(invisible())
  cat("\n")

  cs <- if (requireNamespace("tibble", quietly = TRUE)) {
    class(tibble::tibble())

  } else {
    class(data.frame())
  }

  # Show components as data frames
  for (name in names(x)) {
    if (is.data.frame(x[[name]])) class(x[[name]]) <- cs
  }

  print(unclass(x))
}