How about adding `class(x) <- "date"` and then use `parseShinyInput(x)`? That would also test the S3 dispatch.