unit tests code snippets in r

write a function to subset a data.table, then wight unit test for that function in r