Where is list.names?

? Wed, 30 Mar 2022 12:43:52 +0200
G?ran Brostr?m <goran.brostrom at umu.se> ?????:

That works, if I check for missing argument

Is this the final word?

How about omitting it entirely and letting ... handle it?

table <- function(
  ..., useNA = "ifany", exclude = if (useNA == "no") c(NA, NaN),
  deparse.level = 1
) base::table(
  ..., useNA = useNA, exclude = exclude, deparse.level = deparse.level
)
table(c(1,1,2,NA))
#
#    1    2 <NA>
#    2    1    1
table(c(1,1,2,NA), dnn = 'a')
# a
#    1    2 <NA>
#    2    1    1