R/print.R

Defines functions print.audioSample print.audioInstance

Documented in print.audioInstance print.audioSample

print.audioInstance <- function(x, ...) {
  kind <- c("player", "recorder")[.Call(audio_instance_type, x, PACKAGE="audio")]
  info <- paste(" Audio ", kind, " instance ", sprintf('%x',.Call(audio_instance_address, x, PACKAGE="audio")), " of ", .Call(audio_driver_descr, x, PACKAGE="audio"), " (", .Call(audio_driver_name, x, PACKAGE="audio"), ").\n", sep = '')
  cat(info)
  invisible(info)
}

print.audioSample <- function(x, ...) {
  kind <- if (is.null(dim(x)) || dim(x)[1] != 2) 'mono' else 'stereo'
  bits <- attr(x, "bits", TRUE)
  bits <- if (is.null(bits)) '' else paste(", ", bits, "-bits", sep='')
  cat("sample rate: ", attr(x,"rate"), "Hz, ", kind, bits, "\n", sep='')
  attributes(x) <- NULL
  print(x)
}

Try the audio package in your browser

Any scripts or data that you put into this service are public.

audio documentation built on Aug. 18, 2023, 9:07 a.m.