thisisnic commented on a change in pull request #10032:
URL: https://github.com/apache/arrow/pull/10032#discussion_r614076651
##########
File path: r/R/compute.R
##########
@@ -186,6 +186,32 @@ unique.ArrowDatum <- function(x, incomparables = FALSE,
...) {
call_function("unique", x)
}
+#' @export
+any.ArrowDatum <- function(..., na.rm = FALSE){
+
+ a <- collect_arrays_from_dots(list(...))
+ result <- call_function("any", a)
+
+ if(!as.vector(result) && a$null_count > 0 && !na.rm){
Review comment:
We discussed this just now on a call, but for transparency, I'll answer
here too! `any()` and `all()` use three-valuered logic, so here if there are
`NA`s in the data and `na.rm` is set to `FALSE`, we return an NA if the initial
result is not `TRUE`.
--
This is an automated message from the Apache Git Service.
To respond to the message, please log on to GitHub and use the
URL above to go to the specific comment.
For queries about this service, please contact Infrastructure at:
[email protected]
