From 079b89d1a47e2ec9f63576402528711ae45d9dba Mon Sep 17 00:00:00 2001 From: ehwenk Date: Mon, 18 Nov 2024 16:07:53 +1100 Subject: [PATCH] Update test-as_wide_table.R --- tests/testthat/test-as_wide_table.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-as_wide_table.R b/tests/testthat/test-as_wide_table.R index e74924c..b6d3449 100644 --- a/tests/testthat/test-as_wide_table.R +++ b/tests/testthat/test-as_wide_table.R @@ -24,5 +24,5 @@ test_that("function `collapse_cols` works", { data <- (austraits_5.0.0_lite %>% extract_dataset("Bloomfield_2018"))$locations data_collapsed <- (data %>% collapse_cols())[[1]] expect_equal(stringr::str_count(data_collapsed, "="), 5) - expect_equal(str_count(data_collapsed, "; "), 4) + expect_equal(stringr::str_count(data_collapsed, "; "), 4) })