[R] slice_sample returns 0 rows

### Describe the bug, including details regarding any error messages, version, and platform.

``` r
library(arrow)
#>
#> Attaching package: 'arrow'
#> The following object is masked from 'package:utils':
#>
#> timestamp
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
tf <- tempfile()
dir.create(tf)
write_dataset(group_by(mtcars, cyl), tf)
open_dataset(tf) %>%
slice_sample(n = 3) %>%
collect()
#> # A tibble: 0 × 11
#> # ℹ 11 variables: mpg , disp , hp , drat , wt ,
#> # qsec , vs , am , gear , carb , cyl
```

^{Created on 2023-11-08 with [reprex v2.0.2](https://reprex.tidyverse.org)}

### Component(s)

R