From 56f23333ff58f5d2e147482effac6331d1dd6263 Mon Sep 17 00:00:00 2001 From: Julia Silge Date: Wed, 9 Aug 2023 13:37:52 -0600 Subject: [PATCH 1/2] Update test for new arrow release --- tests/testthat/test-pin-read-write.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/testthat/test-pin-read-write.R b/tests/testthat/test-pin-read-write.R index 5a54e860..593532d5 100644 --- a/tests/testthat/test-pin-read-write.R +++ b/tests/testthat/test-pin-read-write.R @@ -4,7 +4,7 @@ test_that("can round trip all types", { board <- board_temp() # Data frames - df <- data.frame(x = 1:10) + df <- tibble::tibble(x = 1:10) pin_write(board, df, "df-1", type = "rds") expect_equal(pin_read(board, "df-1"), df) @@ -12,13 +12,13 @@ test_that("can round trip all types", { expect_equal(pin_read(board, "df-2"), df) pin_write(board, df, "df-3", type = "arrow") - expect_equal(pin_read(board, "df-2"), df) + expect_equal(pin_read(board, "df-3"), df) pin_write(board, df, "df-4", type = "csv") - expect_equal(pin_read(board, "df-3"), df) + expect_equal(pin_read(board, "df-4"), as.data.frame(df)) pin_write(board, df, "df-5", type = "qs") - expect_equal(pin_read(board, "df-4"), df) + expect_equal(pin_read(board, "df-5"), df) # List x <- list(a = 1:5, b = 1:10) From 5b8d2e6d943cbc210a8a67dc7c81cfb49a46bb3c Mon Sep 17 00:00:00 2001 From: Julia Silge Date: Tue, 15 Aug 2023 10:52:08 -0600 Subject: [PATCH 2/2] Update NEWS --- NEWS.md | 2 ++ 1 file changed, 2 insertions(+) diff --git a/NEWS.md b/NEWS.md index 9dab5aa8..3a8157cd 100644 --- a/NEWS.md +++ b/NEWS.md @@ -5,6 +5,8 @@ * Added new board for Google Drive `board_gdrive()` (#749). +* Updated test for new arrow release (#764). + # pins 1.2.0 ## Breaking changes