| 1 |
#' an example function |
|
| 2 |
#' |
|
| 3 |
#' @export |
|
| 4 |
#' @examples |
|
| 5 |
#' a(1) |
|
| 6 |
a <- function(x) {
|
|
| 7 |
if (x <= 1) {
|
5x |
| 8 |
1 |
2x |
| 9 |
} else {
|
|
| 10 |
2 |
3x |
| 11 |
} |
|
| 12 |
} |
|
| 13 | ||
| 14 |
#' @export |
|
| 15 |
TestS4 <- setClass("TestS4", # nolint
|
|
| 16 |
slots = list(name = "character", enabled = "logical")) |
|
| 17 | ||
| 18 |
#' @export |
|
| 19 |
setGeneric("print2", function(x, y) {
|
|
| 20 |
}) |
|
| 21 | ||
| 22 |
setMethod("print2",
|
|
| 23 |
c(x = "TestS4"), |
|
| 24 |
function(x) {
|
|
| 25 |
1 + 1 |
1x |
| 26 |
}) |
|
| 27 | ||
| 28 |
setMethod("print2",
|
|
| 29 |
c(x = "TestS4", y = "character"), |
|
| 30 |
function(x, y) {
|
|
| 31 |
1 + 2 |
1x |
| 32 |
}) |
|
| 33 | ||
| 34 |
setMethod("show",
|
|
| 35 |
c(object = "TestS4"), |
|
| 36 |
function(object) {
|
|
| 37 |
1 + 3 |
1x |
| 38 |
}) |