Add future_Filter()

[HenrikBengtsson]

> base::Filter
function (f, x) 
{
    f <- match.fun(f)
    z <- unlist(lapply(x, f))
    if (is.null(z)) 
        return(x[integer()])
    ind <- as.logical(z)
    x[which(ind)]
}