Thank you.
I tried something similar, but it was not working (and I was lost in the troubleshooting). Unfortunately the same applies to your code, too.
The following error message is presented:
Error in selected[[i]] <- eval_tidy(.p(column, ...)) :
more elements supplied than there are to replace
I think, that I know the cause: the dttm columns are returning more than 1 class, thus more than 1 logical values:
> str(is.integer64(df$CREATED_DATE))
logi [1:2] FALSE FALSE
> class(df$CREATED_DATE)
[1] "POSIXct" "POSIXt"
And still I am trying to find a solution…