# Test on a character
fast_is_equal("a", "a")
fast_is_equal("a", "b")
# Test on a vector
myVector <- rep(x = "a", 10000)
fast_is_equal(myVector, myVector)
# Test on a data.table
fast_is_equal(tiny_messy_adult, messy_adult)
Run the code above in your browser using DataLab