showPrimTypes.R
allObjects = objects("package:base", all=TRUE)
primitives = sapply(allObjects, function(x)is.primitive(get(x)))
primFuns = allObjects[primitives]
functionTypes <- split(primFuns,
sapply(primFuns, function(x)typeof(get(x))))
names(functionTypes)
sapply(functionTypes, length)
functionTypes$special