Special-case lawyer

grattan · Feb 9, 2019 · b54b690 · b54b690
1 parent d3104a1
commit b54b690
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/shiny/NegativeGearing-vs-Occupation/app.R b/shiny/NegativeGearing-vs-Occupation/app.R
@@ -65,6 +65,8 @@ NG_Benefit_vs_Occupation <-
                         " (other)",
                         Occupation,
                         fixed = TRUE)] %>%
+  .[grep("legal prof", Occupation, ignore.case = TRUE),
+    Occupation := paste0("Lawyers/", Occupation)] %>%
   .[]
 
 
@@ -155,7 +157,9 @@ server <- function(input, output) {
     focused_table <- function(.pattern) {
       o <- copy(NG_Benefit_vs_Occupation)
       if (is_focused <- nzchar(.pattern)) {
+
         .patterns <- strsplit(.pattern, split = ",| ")[[1L]]
+
         o[, Occupation := coalesce(Occupation, "(Unknown)")]
         if (length(.patterns) > 1L) {
           o <- o[grep(paste0(.patterns, collapse = "|"), Occupation, ignore.case = TRUE, perl = TRUE)]