library(tidyverse)
#> Warning: package 'tidyverse' was built under R version 3.6.2
wordlist <- c("DROPERIDOL", "METOCLOPRAMIDE", "OLANZAPINE", "PROCHLORPERAZINE", "ELETRIPTAN", "SUMATRIPTAN")
ha_reprexdf2<-structure(list(new_drug_1 = c("DROPERIDOL", "PROCHLORPERAZINE",
"PROCHLORPERAZINE", "METOCLOPRAMIDE", "PROCHLORPERAZINE"), new_drug_2 = c("ONDANSETRON",
"DIPHENHYDRAMINE", "ONDANSETRON", "DROPERIDOL", "DROPERIDOL"),
new_drug_3 = c("ONDANSETRON", "", "ONDANSETRON", "", ""),
new_drug_4 = c("PROCHLORPERAZINE", "", "ACETAMINOPHEN", "",
""), new_drug_5 = c("", "", "ACETAMINOPHEN", "", "")), row.names = c(NA,
-5L), class = c("tbl_df", "tbl", "data.frame"))
ha_reprexdf2 %>%
mutate(ha_rescue=if_else(
new_drug_1 %in% wordlist | new_drug_2 %in% wordlist | new_drug_3 %in% wordlist |new_drug_4 %in% wordlist |new_drug_5 %in% wordlist,
"yes",
"no"
))
#> # A tibble: 5 x 6
#> new_drug_1 new_drug_2 new_drug_3 new_drug_4 new_drug_5 ha_rescue
#> <chr> <chr> <chr> <chr> <chr> <chr>
#> 1 DROPERIDOL ONDANSETRON ONDANSETR… PROCHLORPERAZ… "" yes
#> 2 PROCHLORPERAZ… DIPHENHYDRAMI… "" "" "" yes
#> 3 PROCHLORPERAZ… ONDANSETRON ONDANSETR… ACETAMINOPHEN ACETAMINOPH… yes
#> 4 METOCLOPRAMIDE DROPERIDOL "" "" "" yes
#> 5 PROCHLORPERAZ… DROPERIDOL "" "" "" yes