library(arrow, warn.conflicts = FALSE)
library(dplyr, warn.conflicts = FALSE)
df <- data.frame(
x = c(0.1, 0.2, 0.2, 0.2, 0.2)
)
tab <- Table$create(df)
tab %>%
summarise(mean(x)) %>%
collect()
#> # A tibble: 1 × 1
#> `mean(x)`
#> <dbl>
#> 1 0.18
tab %>%
summarise(x = mean(x)) %>%
mutate(x = cast(x, decimal(5, 1))) %>%
collect()
#> # A tibble: 1 × 1
#> x
#> <dbl>
#> 1 0.2
tab %>%
mutate(x = cast(x, decimal(5, 1))) %>%
summarise(x = mean(x)) %>%
collect()
#> # A tibble: 1 × 1
#> x
#> <dbl>
#> 1 0.1