R: почему совпадающий символ «NULL» для аргумента функции вызывает неожиданные результаты?

Question

R-код ниже дает неожиданные результаты. (Я ставлю NULL в b только для тестирования. Мой интерес представляет характер «NULL»)

f <- function(a, b = c('x', 'NULLL', NULL)) { 
    print(a) 
    b <- match.arg(b) 
    print(class(b)) 
    print(b) 
    print(b == 'NULL') 
    print(b == "NULL") 
    print(is.null(b)) 

} 
f(2) 
f(2, 'x') 
f(2, 'NULL') 

Результаты выглядят следующие. Я предполагаю, что для f(2, 'NULL') должно быть напечатано 'TRUE, не так ли? Действительно странно для меня! Любые объяснения? Большое спасибо!

R 3.2.3> f(2) 
[1] 2 
[1] "character" 
[1] "x" 
[1] FALSE 
[1] FALSE 
[1] FALSE 
R 3.2.3> f(2, 'x') 
[1] 2 
[1] "character" 
[1] "x" 
[1] FALSE 
[1] FALSE 
[1] FALSE 
R 3.2.3> f(2, 'NULL') 
[1] 2 
[1] "character" 
[1] "NULLL" 
[1] FALSE 
[1] FALSE 
[1] FALSE 

Answer 1

match.arg() делает частичное соответствие: от ?match.arg,

Сравнение производится с помощью «pmatch», поэтому «Arg» может быть сокращено.

Значение: несокращенный версия точной или уникального частичного совпадения, если есть один

так, когда аргумент b является 'NULL', match.arg(b) дает результат 'NULLL' (потому что первые четыре символа соответствия). Остальное следует за ...