leoniedu opened a new issue, #36053:
URL: https://github.com/apache/arrow/issues/36053
### Describe the bug, including details regarding any error messages,
version, and platform.
```
td <- tempdir()
tzip <- file.path(td, "reprex.zip")
download.file("https://drive.google.com/uc?export=download&id=1-KefpiALDtUg0PrCUgpMAaE0903jVWWm";,
destfile = tzip)
unzip(tzip, exdir = td)
tlink <- file.path(td, "co_ano_mes=1997-01-01")
library(dplyr)
arrow_dset <- arrow::open_dataset(
tlink,
format = "parquet"
)
arrow_dset%>%
count(fluxo, vl_frete_miss=is.na(vl_frete))%>%collect()
```
No missing values for vl_frete when fluxo=="imp"
> fluxo vl_frete_miss n
> <chr> <lgl> <int>
> exp TRUE 35546
> imp FALSE 42332
```
replicate(10, arrow_dset%>%
group_by(fluxo) %>%
summarise(vl_frete=sum(vl_frete)) %>%
collect %>%
filter(fluxo=="imp") %>%
pull(vl_frete))
```
> [1] NA NA 154149785 NA 154149785 NA
154149785 154149785
> [9] 154149785 154149785
### Component(s)
R
--
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.
To unsubscribe, e-mail: [email protected]
For queries about this service, please contact Infrastructure at:
[email protected]
