Where is list.names?

I can guess what 'list.names' is (from the documentation), but where
and how is it defined?

table

I am trying to redefine the default behavior of base::table by editing
.Rprofile in my home directory:

table <- function(...,
                   useNA = "ifany",
                   exclude = if (useNA == "no") c(NA, NaN),
                   dnn = list.names(...),
                   deparse.level = 1){
     base::table(...,
                 useNA = useNA,
                 exclude = exclude,
                 dnn = dnn,
                 deparse.level = deparse.level)
}

Trying it, I get

 > table(c(1,1,2,NA))

Error in list.names(...) : could not find function "list.names"

However, by removing the argument 'dnn', it apparently works. I am
probably doing this in the wrong way, but how should it be done?
I can guess what 'list.names' is (from the documentation), but where and
how is it defined?

Thanks, G?ran
(On R-4.1.3)

? Wed, 30 Mar 2022 11:27:05 +0200 G?ran Brostr?m
<goran.brostrom at umu.se> ?????:

I can guess what 'list.names' is (from the documentation), but
where and how is it defined?

Interesting! It's defined first thing inside the function, so by the 
time the function tries to use the argument, list.names exists and
can be called, but for all other purposes, it's not there.

What if you don't set a default value for dnn in your wrapper or

even mention dnn as a formal argument in your wrapper? In many cases,
it's possible to forward missing arguments to functions and have them
do the right thing. The only other solution I can think of is
non-standard evaluation.

That works, if I check for missing argument

Is this the final word?

? 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