Expose pickWith

Expose `R.pickWith(function(val, key, obj){}, obj)`