Make `check_exclusive()` understand optional arguments

[hadley]

e.g. make this just work:

f <- function(x = NULL, y = NULL) {
  rlang::check_exclusive(x, y)
}