nci.clean <- NCI_merged_16_17_17_18 %>%
  rename (.,
          mood_disorder = DXMIPDMD13,
          anxiety_disorder = DXMIPDAD13,
          psychotic_disorder = DXMIPDPD13,
          other_mh = DXMIPDOTH13,
          behavior_dx = DXMIPDBC13,
       self_injury = SELFINJ08,
       disruptive = DISBEH08,
       destructive = UNCPBEH08) 
nci.mh <- filter(nci.clean, mood.disorder==2 | anxiety_disorder==2 | psychotic_disorder==2 | other_mh==2)
Error: Problem with `filter()` input `..1`.
x object 'mood.disorder' not found
i Input `..1` is `|...`.
nci.beh <- filter(nci.clean, behavior_dx==2 | self_injury==2 | self_injury==3 | disruptive==2 | disruptive==3 | destructive==2 | destructive==3)
         
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQoNCg0KYGBge3J9DQpuY2kuY2xlYW4gPC0gTkNJX21lcmdlZF8xNl8xN18xN18xOCAlPiUNCiAgcmVuYW1lICguLA0KICAgICAgICAgIG1vb2RfZGlzb3JkZXIgPSBEWE1JUERNRDEzLA0KICAgICAgICAgIGFueGlldHlfZGlzb3JkZXIgPSBEWE1JUERBRDEzLA0KICAgICAgICAgIHBzeWNob3RpY19kaXNvcmRlciA9IERYTUlQRFBEMTMsDQogICAgICAgICAgb3RoZXJfbWggPSBEWE1JUERPVEgxMywNCiAgICAgICAgICBiZWhhdmlvcl9keCA9IERYTUlQREJDMTMsDQogICAgICAgc2VsZl9pbmp1cnkgPSBTRUxGSU5KMDgsDQogICAgICAgZGlzcnVwdGl2ZSA9IERJU0JFSDA4LA0KICAgICAgIGRlc3RydWN0aXZlID0gVU5DUEJFSDA4KSANCmBgYA0KYGBge3J9DQpuY2kubWggPC0gZmlsdGVyKG5jaS5jbGVhbiwgbW9vZF9kaXNvcmRlcj09MiB8IGFueGlldHlfZGlzb3JkZXI9PTIgfCBwc3ljaG90aWNfZGlzb3JkZXI9PTIgfCBvdGhlcl9taD09MikNCmBgYA0KYGBge3J9DQpuY2kuYmVoIDwtIGZpbHRlcihuY2kuY2xlYW4sIGJlaGF2aW9yX2R4PT0yIHwgc2VsZl9pbmp1cnk9PTIgfCBzZWxmX2luanVyeT09MyB8IGRpc3J1cHRpdmU9PTIgfCBkaXNydXB0aXZlPT0zIHwgZGVzdHJ1Y3RpdmU9PTIgfCBkZXN0cnVjdGl2ZT09MykNCiAgICAgICAgIA0KYGBgDQpgYGB7cn0NCg0KYGBgDQoNCg0K