From b0ed77b60141cee9c9fa0f8bbd2bc8da8025d406 Mon Sep 17 00:00:00 2001
From: mattbk <bedrocks@gmail.com>
Date: Tue, 6 Nov 2018 12:41:33 -0600
Subject: [PATCH] Fix emoji checks.

---
 bin/post-311.R | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/bin/post-311.R b/bin/post-311.R
index 9ee1143..f34f9d0 100644
--- a/bin/post-311.R
+++ b/bin/post-311.R
@@ -125,22 +125,22 @@ if(nrow(new_requests) > 0){
         } else emoji <- emo::ji("interrobang") #27904, general concern
 
         # Add emoji from request description
-        if(any(c("dog","dogs") %in% request$description)) {
+        if(grepl("dog|dogs", request$description)) {
             emoji <- paste0(emoji, emo::ji("dog"))
         }
-        if(any(c("parking") %in% request$description)) {
+        if(grepl("parking", request$description)) {
             emoji <- paste0(emoji, emo::ji("parking"))
         }
-        if(any(c("leaves", "leaf") %in% request$description)) {
+        if(grepl("leaf|leaves", request$description)) {
             emoji <- paste0(emoji, emo::ji("fallen_leaf"))
         }
-        if(any(c("flood", "floods") %in% request$description)) {
+        if(grepl("flood|floods", request$description)) {
             emoji <- paste0(emoji, emo::ji("ocean"))
         }
-        if("speeding" %in% request$description) {
+        if(grepl("speeding", request$description)) {
             emoji <- paste0(emoji, emo::ji("rocket"))
         }
-        if(any(c("pedestrian", "pedestrians") %in% request$description)) {
+        if(grepl("pedestrian|pedestrians|walkers", request$description)) {
             emoji <- paste0(emoji, emo::ji("walking"))
         }