resolve pipe issue for CRAN release

wjakethompson · Aug 16, 2021 · d51baae · d51baae
1 parent 403b23f
commit d51baae
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/tests/testthat/test-data.R b/tests/testthat/test-data.R
@@ -11,10 +11,9 @@ test_that("data has expected dimensions", {
   expect_equal(ncol(taylor_albums), 4L)
 
   albums <-
-    taylor_all_songs[which((!taylor_all_songs$ep) &
-                             !is.na(taylor_all_songs$album_name)),
-                     "album_name"] |>
-    unique()
+    unique(taylor_all_songs[which((!taylor_all_songs$ep) &
+                                    !is.na(taylor_all_songs$album_name)),
+                            "album_name"])
 
   albums <- tolower(albums[[1]])
   albums <- gsub("\\ ", "_", albums)