Lambda Function Filter In R