泛型與方法

在 R 中使用 S3 與 R6 的物件導向程式設計

Richie Cotton

Data Evangelist at DataCamp

summary(c(TRUE, FALSE, NA, TRUE))

   Mode   FALSE    TRUE    NA's 
logical       1       2       1

summary(rgamma(1000, 1))

    Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
0.000354 0.276500 0.690300 1.020000 1.384000 9.664000

函式多載＝依輸入改變

函式行為

第 2 章：泛型與方法（ch2_1-generics-and-methods.007.png）

第 2 章：泛型與方法（ch2_1-generics-and-methods.008.png）

第 2 章：泛型與方法（ch2_1-generics-and-methods.009.png）

第 2 章：泛型與方法（ch2_1-generics-and-methods.010.png）

print

function (x, ...) 
UseMethod("print")
<bytecode: 0x1062f0870>
<environment: namespace:base>

方法命名為 generic.class

print.Date
summary.factor
unique.array

方法簽名包含泛型簽名

args(print)

function (x, ...) 
NULL

args(print.Date)

function (x, max = NULL, ...) 
NULL

用 `...` 在方法間傳遞引數

同時放在泛型與各方法中

print.function

function (x, useSource = TRUE, ...) 
.Internal(print.function(x, useSource, ...))

print.Date

function (x, max = NULL, ...) 
{
    if (is.null(max)) 
        max <- getOption("max.print", 9999L)
    if (max < length(x)) {
        print(format(x[seq_len(max)]), max = max, ...)
        cat(" [ reached getOption(\"max.print\") -- omitted", 
            length(x) - max, "entries ]\n")
    }
    else print(format(x), max = max, ...)
    invisible(x)
}