[R] printing data in Table/RecordBatch print method

Related to ARROW-16776 but after a brief discussion with Neal Richardson, he requested that I split the improvement request into separate issues.

When working with Arrow datasets/tables, I often find myself wanting to interactively print or "see" the results of a query or the first few rows of the data without having to fully collect into memory.

It would be ideal to lazily print some data with Table/RecordBatch print methods, however, currently, the print methods return schema without data.

IE:

``` r
library(dplyr)
library(arrow)

mtcars %>% arrow::write_parquet("mtcars.parquet")
car_ds <- arrow::open_dataset("mtcars.parquet")

car_ds
#> FileSystemDataset with 1 Parquet file
#> mpg: double
#> cyl: double
#> disp: double
#> hp: double
#> drat: double
#> wt: double
#> qsec: double
#> vs: double
#> am: double
#> gear: double
#> carb: double
#>
#> See $metadata for additional Schema metadata

car_ds %>%
compute()
#> Table
#> 32 rows x 11 columns
#> $mpg
#> $cyl
#> $disp
#> $hp
#> $drat
#> $wt
#> $qsec
#> $vs
#> $am
#> $gear
#> $carb
#>
#> See $metadata for additional Schema metadata
```

**Reporter**: [Thomas Mock](https://issues.apache.org/jira/browse/ARROW-16777)
#### Related issues:
- [[R] dplyr::glimpse method for arrow table and datasets](https://github.com/apache/arrow/issues/32109) (Blocked)
- [[R] Improved print methods for Arrow tabulars](https://github.com/apache/arrow/issues/30237) (is duplicated by)

_{**Note**: *This issue was originally created as [ARROW-16777](https://issues.apache.org/jira/browse/ARROW-16777). Please see the [migration documentation](https://github.com/apache/arrow/issues/14542) for further details.*}

Start with the R Table/RecordBatch print methods and reproduce the mtcars example using open_dataset() and compute(). Review the related print-method and glimpse issues for existing scope, then define done as printing a bounded preview of data lazily without fully collecting it into memory.

Written by the indexing model from the issue text.