jorisvandenbossche commented on a change in pull request #10032:
URL: https://github.com/apache/arrow/pull/10032#discussion_r617840727
##########
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(!na.rm && a$null_count > 0 && !as.vector(result)){
+ Scalar$create(NA)
Review comment:
> FYI @rok, not sure if you want to add this to your PR for ARROW-9054
or if you'd like to do a followup to add any/all to it, up to you.
I would maybe keep that as a separate followup PR, ARROW-9054 is already
getting quite big ;)
--
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]
