matt/hack-grand-forks
1
0
Fork 0
Code Issues 13 Pull Requests Packages Projects Releases Wiki Activity

Fix emoji checks.

Browse Source
This commit is contained in:
mattbk
2018-11-06 12:41:33 -06:00
parent 01f52adf03
commit b0ed77b601
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
bin/post-311.R
View File

@ -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"))
}