inst/example_packages/exampleGood/R/s4_example.R

In checked: Systematically Run R CMD Checks

#' An example S4 class
#'
#' @slot data Some data
#'
S4Example <- setClass("S4Example", representation(data = "list"))

#' Provide names of the data slot in an S4Example object
#'
#' @param x An x
#'
setMethod("names", signature("S4Example"), function(x) {
  names(x@data)
})