TODO: use devtools::expect_equal_to_reference() function to cache a reference result and compare the current output with the reference.