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

      })