Update top-n.R

Fix Issue #426 by using `missing` which does not evaluate it's argument(s)
Hmmm, maybe should be `missing(wt) || !is.null(wt)` ?