cannabis_text_regex <-
  "\\be[bd]+[ai]*b+l|laced ?((brown)|(cookie)|(gum))|pot brown|smok((e)|(ed)|(ing)) a? ?joints?\\b|tetrahydrocannabinol|\\bthc\\b|((?=.*blunt|\\bpot\\b|.*reefer|.*spliff)(?=.*smok))|((?=.*\\bmj\\b)(^((?!avr mj|cm mj|fib mj|inr mj|mvr mj|per mj|ps360 mj|see mj).)*$))|((?=.*\\bweed\\b)(^((?!((den[iey]+[iesd]?[srn]?[sg]?)|(((declin)|(refus))((e[sd]?)|(ing)))|(neg(ative)?([^a-z]*for)?)|(\\bnot?([^a-z]*((c/o)|(s/s)))?)|(with[^a-z]*out)|(\\bw[^a-z0-9]*o)|([(]-[)]))[^a-z]*(any[^a-z]*)?(mention[^a-z]*of[^a-z]*)?(a(ny)?[^a-z]*)?(((known)|(recent)|(reported))[^a-z]*)?weed|pollen|pull((ed)|(ing))? ?a? ?weed|stink ?weed|weed ?((eat)|(kill)|(machine)|(trim)|(w[hr]?ac))).)*$))|((?=.*\\bca?n+[ia]+b)(^((?!((den[iey]+[iesd]?[srn]?[sg]?)|(((declin)|(refus))((e[sd]?)|(ing)))|(neg(ative)?([^a-z]*for)?)|(\\bnot?([^a-z]*((c/o)|(s/s)))?)|(with[^a-z]*out)|(\\bw[^a-z0-9]*o)|([(]-[)]))[^a-z]*(any[^a-z]*)?(mention[^a-z]*of[^a-z]*)?(a(ny)?[^a-z]*)?(((known)|(recent)|(reported))[^a-z]*)?ca?n+[ia]+b).)*$))|((?=.*(m[aei]*r+[aiy]*j+[au]+n+))(^((?!((den[iey]+[iesd]?[srn]?[sg]?)|(((declin)|(refus))((e[sd]?)|(ing)))|(neg(ative)?([^a-z]*for)?)|(\bnot?([^a-z]*((c/o)|(s/s)))?)|(with[^a-z]*out)|(\bw[^a-z0-9]*o)|([(]-[)]))[^a-z]*(any[^a-z]*)?(mention[^a-z]*of[^a-z]*)?(a(ny)?[^a-z]*)?(((known)|(recent)|(reported))[^a-z]*)?[a-z]*m[aei]*r+[aiy]*j+[au]+n+).)*$))"

syn$triage_note_case <- 
  grepl(cannabis_text_regex, syn$triage_note, ignore.case = T, perl = T)