This is an automated email from the ASF dual-hosted git repository. npr pushed a commit to branch nealrichardson-patch-2 in repository https://gitbox.apache.org/repos/asf/arrow-cookbook.git
commit dc21112001e2fda3a519953ce31e6d5fedb611d2 Author: Neal Richardson <[email protected]> AuthorDate: Wed Aug 18 08:38:45 2021 -0400 [R] Remove unnecessary head()s --- r/content/reading_and_writing_data.Rmd | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/r/content/reading_and_writing_data.Rmd b/r/content/reading_and_writing_data.Rmd index 89d25c7..abbc21a 100644 --- a/r/content/reading_and_writing_data.Rmd +++ b/r/content/reading_and_writing_data.Rmd @@ -60,11 +60,11 @@ Given a Parquet file, it can be read back in by using `arrow::read_parquet()`. ```{r, read_parquet} parquet_tbl <- read_parquet("my_table.parquet") -head(parquet_tbl) +parquet_tbl ``` ```{r, test_read_parquet, opts.label = "test"} test_that("read_parquet works as expected", { - expect_equivalent(dplyr::collect(parquet_tbl), tibble::tibble(group = c("A", "B", "C"), score = c(99, 97, 99))) + expect_identical(as.data.frame(parquet_tbl), tibble::tibble(group = c("A", "B", "C"), score = c(99, 97, 99))) }) ``` @@ -82,7 +82,7 @@ If you set `as_data_frame` to `FALSE`, the file will be read in as an Arrow Tabl ```{r, read_parquet_table} my_table_arrow_table <- read_parquet("my_table.parquet", as_data_frame = FALSE) -head(my_table_arrow_table) +my_table_arrow_table ``` ```{r, read_parquet_table_class} @@ -115,7 +115,7 @@ write_parquet(dist_time, "dist_time.parquet") # Read in only the "time" column time_only <- read_parquet("dist_time.parquet", col_select = "time") -head(time_only) +time_only ``` ```{r, test_read_parquet_filter, opts.label = "test"} test_that("read_parquet_filter works as expected", {
