Expose filterObject

Expose `R.filterObject(function(){}, obj)`

Maybe this should be called `pickWith`?