fixed approach for reading addresses

Author: MichaelChirico

inst/tests/mergelist.Rraw

@@ -8,8 +8,6 @@ if (exists("test.data.table", .GlobalEnv, inherits=FALSE)) {
   test = data.table:::test
 }
 
-addresses = function(x) vapply(x, address, "")
-
 # cbindlist
 
 local({
@@ -21,11 +19,11 @@ local({
   ans = cbindlist(l)
   expected = data.table(l$d1, l$d2, l$d3)
   test(11.01, ans, expected)
-  test(11.02, intersect(addresses(ans), addresses(l)), character())
+  test(11.02, intersect(vapply(ans, address, ""), unlist(lapply(l, vapply, address, "")), character())
   ans = cbindlist(l, copy=FALSE)
   expected = setDT(c(l$d1, l$d2, l$d3))
   test(11.03, ans, expected)
-  test(11.04, length(intersect(addresses(ans), addresses(l))), ncol(expected))
+  test(11.04, length(intersect(vapply(ans, address, ""), unlist(lapply(l, vapply, address, "")))), ncol(expected))
 })
 
 test(11.05, cbindlist(list(data.table(a=1L), data.table(), data.table(d=2L), data.table(f=3L))), data.table(a=1L, d=2L, f=3L))