R语言 检查一个函数是否为原始函数 – is.primitive() 函数

R语言中的 is.primitive() 函数用于检查一个函数是否为原始函数，即它是一个内置函数或一个特殊函数。

语法： is.primitive(func)

参数：

func： 要检查的函数

例1 :

# R program to illustrate 
# the use of is.primitive function
  
# Calling is.primitive() function
is.primitive(1)
is.primitive(is.primitive)
is.primitive(sum)
is.primitive(prod)

输出

[1] FALSE
[1] FALSE
[1] TRUE
[1] TRUE

例2 :

# R program to illustrate 
# the use of is.primitive function
  
# Sample user-defined Function
evenOdd = function(x){ 
  if(x %% 2 == 0) 
    return("even") 
  else
    return("odd") 
}  
  
# Calling is.primitive() function
is.primitive(evenOdd)

输出

[1] FALSE