The code would be cleaner if you created did something more like:

```R
if (!asis) dn <- lapply(dn, var.convert))
labels <- expand.grid(dn, ...)
```