From 14512f7a702a53087106c8fdce13a3dd290ccbba Mon Sep 17 00:00:00 2001 From: alwinw <16846521+alwinw@users.noreply.github.com> Date: Sun, 6 Jun 2021 10:46:37 +1000 Subject: [PATCH] Fixed bug from testing expect_identical() --- tests/testthat/test-utils.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R index 650d64b..16d4512 100644 --- a/tests/testthat/test-utils.R +++ b/tests/testthat/test-utils.R @@ -269,7 +269,7 @@ changes_exp_df <- function(env = parent.frame()) { test_that("combn_changes for data.frame", { df <- combn_changes(changes_rand_df(), "dttm_", "SCr_", "pt_id_") - expect_identical(df, changes_exp_df()) + expect_equal(df, changes_exp_df()) df <- combn_changes(changes_rand_df(), dttm_, SCr_, pt_id_) expect_equal(df, changes_exp_df())