reduce test data to 501 rows

OxfordIHTM · Oct 22, 2024 · 58d9cdc · 58d9cdc
1 parent 6856c71
commit 58d9cdc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-pact_process_website.R b/tests/testthat/test-pact_process_website.R
@@ -2,7 +2,7 @@
 
 test_that("website data processing works as expected", {
   pact_data <- pact_read_website() |>
-    (\(x) x[c(seq_len(1000), 9527), ])()
+    (\(x) x[c(seq_len(500), 9527), ])()
   df1 <- pact_process_website(pact_data)
   df2 <- pact_process_website(pact_data, col_list = FALSE, fix = FALSE)