How about `is_posix <- function(x) ...)` ?