R/test.R

In mb706/s3internal: TITLE

Defines functions s3m.character s3m.default s3m callmapply calldocall callnormal

#' @export
callnormal <- function(x, ...) {
  s3m(x, ...)
}

#' @export
calldocall <- function(x, ...) {
  do.call(s3m, list(x, ...))
}

#' @export
callmapply <- function(x, ...) {
  mapply(s3m, list(x))
}


s3m <- function(x, ...) {
  UseMethod("s3m")
}

s3m.default <- function(x, ...) {
  cat("default.\n")
  print(x)
}

s3m.character <- function(x, ...) {
  cat("character.\n")
  print(x)
}