From 366addb6e1398ee69b0e83dc0887604c6bd760b6 Mon Sep 17 00:00:00 2001 From: Bob Rudis Date: Mon, 11 Apr 2016 00:47:41 -0400 Subject: [PATCH] passes_all --- R/spf.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/spf.r b/R/spf.r index e513479..9de631f 100644 --- a/R/spf.r +++ b/R/spf.r @@ -61,7 +61,7 @@ passes_all <- function(spf_rec) { ret <- vector("logical", length(spf_rec)) spf_rec <- stringi::stri_trim(stringi::stri_replace_all_regex(spf_rec, '"', "")) SPF <- which(has_spf(spf_rec)) - ret[SPF] <- grepl("\\+all$", stringi::stri_trim(spf_rec[SPF])) + ret[SPF] <- grepl("[\\+ ]all$", stringi::stri_trim(spf_rec[SPF])) ret[!SPF] <- NA ret }