Using RStudio's powerful text editors two features
- find/replace
- use alt to drag the curser down the script so that you can type the same text on every line simultaneously
allow you to type the same condition at the start of every line FAP9PCX %in% c(
close that condition and adopt case_when semantics by globally replacing = with ) ~
use the alt type trick to end each line with a comma.
Finally add start and end code to complete the case when semantics.
result:
FAP9PCX <- "111f"
case_when(
FAP9PCX %in% c("111a","111f","121a","121f","122a","131a","131f" ) ~ "A0Z00",
FAP9PCX %in% c("111d","111e","121d","121e","131d","131e" ) ~ "A0Z01",
FAP9PCX %in% c("122b" ) ~ "A0Z02",
FAP9PCX %in% c("100x","691e" ) ~ "A0Z40",
FAP9PCX %in% c("691b" ) ~ "A0Z41",
FAP9PCX %in% c("533b","691f" ) ~ "A0Z42",
FAP9PCX %in% c("691a" ) ~ "A0Z43",
FAP9PCX %in% c("111b","121b","131b" ) ~ "A1Z00",
FAP9PCX %in% c("111c","121c","131c" ) ~ "A1Z01",
FAP9PCX %in% c("691c" ) ~ "A1Z40",
FAP9PCX %in% c("631a" ) ~ "A1Z41",
FAP9PCX %in% c("691d" ) ~ "A1Z42",
FAP9PCX %in% c("471a","471b","480a" ) ~ "A2Z70",
FAP9PCX %in% c("381a","381b","381c" ) ~ "A2Z90",
FAP9PCX %in% c("122c" ) ~ "A3Z00",
FAP9PCX %in% c("692a" ) ~ "A3Z40",
FAP9PCX %in% c("656a","656b","656c" ) ~ "A3Z41",
FAP9PCX %in% c("389c","480b" ) ~ "A3Z90",
FAP9PCX %in% c("671a","671b","671c","671d" ) ~ "B0Z20",
FAP9PCX %in% c("681a" ) ~ "B0Z21",
FAP9PCX %in% c("211h","621a","621b","621d","621e","621f","621g" ) ~ "B1Z40",
FAP9PCX %in% c("211a","632a" ) ~ "B2Z40",
FAP9PCX %in% c("214d","632b" ) ~ "B2Z41",
FAP9PCX %in% c("624d" ) ~ "B2Z42",
FAP9PCX %in% c("632c" ) ~ "B2Z43",
FAP9PCX %in% c("211c","632e" ) ~ "B2Z44",
FAP9PCX %in% c("681b" ) ~ "B3Z20",
FAP9PCX %in% c("211d","632f" ) ~ "B4Z41",
FAP9PCX %in% c("211b","632d","632j" ) ~ "B4Z42",
FAP9PCX %in% c("211e","633a" ) ~ "B4Z43",
FAP9PCX %in% c("211f","632g","632h" ) ~ "B4Z44",
FAP9PCX %in% c("621c","651a" ) ~ "B5Z40",
FAP9PCX %in% c("472b" ) ~ "B6Z70",
FAP9PCX %in% c("211j","472c","472d" ) ~ "B6Z71",
FAP9PCX %in% c("472a" ) ~ "B6Z72",
FAP9PCX %in% c("481a","481b" ) ~ "B6Z73",
FAP9PCX %in% c("312f","382b" ) ~ "B7Z90",
FAP9PCX %in% c("382a","382c" ) ~ "B7Z91",
FAP9PCX %in% c("672a" ) ~ "C0Z20",
FAP9PCX %in% c("622a","622b","622c","622d","622e","622f","622g" ) ~ "C1Z40",
FAP9PCX %in% c("473b","473c" ) ~ "C2Z70",
FAP9PCX %in% c("473a" ) ~ "C2Z71",
FAP9PCX %in% c("482a" ) ~ "C2Z80",
FAP9PCX %in% c("673a","673b" ) ~ "D0Z20",
FAP9PCX %in% c("628c","628d" ) ~ "D1Z40",
FAP9PCX %in% c("623f","623g" ) ~ "D1Z41",
FAP9PCX %in% c("211g","212b","623a","634b" ) ~ "D2Z40",
FAP9PCX %in% c("623b" ) ~ "D2Z41",
FAP9PCX %in% c("623c","623d","623e" ) ~ "D2Z42",
FAP9PCX %in% c("673c","682a" ) ~ "D3Z20",
FAP9PCX %in% c("624a","624b","624c","624e","624g" ) ~ "D4Z40",
FAP9PCX %in% c("624f" ) ~ "D4Z41",
FAP9PCX %in% c("474b","474c" ) ~ "D6Z70",
FAP9PCX %in% c("474a" ) ~ "D6Z71",
FAP9PCX %in% c("212c","212d","483a" ) ~ "D6Z80",
FAP9PCX %in% c("674a" ) ~ "E0Z20",
FAP9PCX %in% c("674b","674c" ) ~ "E0Z21",
FAP9PCX %in% c("674d" ) ~ "E0Z22",
FAP9PCX %in% c("674e" ) ~ "E0Z23",
FAP9PCX %in% c("676e" ) ~ "E0Z24",
FAP9PCX %in% c("625a","626a" ) ~ "E1Z40",
FAP9PCX %in% c("625c" ) ~ "E1Z41",
FAP9PCX %in% c("625e","625f","625g" ) ~ "E1Z42",
FAP9PCX %in% c("625h","626b","637a" ) ~ "E1Z43",
FAP9PCX %in% c("626c" ) ~ "E1Z44",
FAP9PCX %in% c("479a","625b","628f" ) ~ "E1Z46",
FAP9PCX %in% c("628g" ) ~ "E1Z47",
FAP9PCX %in% c("475a","475b","485a" ) ~ "E2Z70",
FAP9PCX %in% c("484a","484b" ) ~ "E2Z80",
FAP9PCX %in% c("675a" ) ~ "F0Z20",
FAP9PCX %in% c("627a","627b","627c" ) ~ "F1Z40",
FAP9PCX %in% c("213a","635a" ) ~ "F1Z41",
FAP9PCX %in% c("675b" ) ~ "F2Z20",
FAP9PCX %in% c("214a","214b" ) ~ "F3Z40",
FAP9PCX %in% c("627d" ) ~ "F3Z41",
FAP9PCX %in% c("675c" ) ~ "F4Z20",
FAP9PCX %in% c("214c","627e","627f" ) ~ "F4Z41",
FAP9PCX %in% c("476a","476b","485b" ) ~ "F5Z70",
FAP9PCX %in% c("628a","634d" ) ~ "G0A40",
FAP9PCX %in% c("628b","633d" ) ~ "G0A41",
FAP9PCX %in% c("216c","633b" ) ~ "G0A42",
FAP9PCX %in% c("632k" ) ~ "G0A43",
FAP9PCX %in% c("216b","634a" ) ~ "G0B40",
FAP9PCX %in% c("212a","216a","633c","634c" ) ~ "G0B41",
FAP9PCX %in% c("477b","477c","477d","486a","486b","486c","486d" ) ~ "G1Z70",
FAP9PCX %in% c("479b" ) ~ "G1Z71",
FAP9PCX %in% c("486e" ) ~ "G1Z80",
FAP9PCX %in% c("380a","383b","384b","385b","386d","386e" ) ~ "H0Z90",
FAP9PCX %in% c("387e","387f" ) ~ "H0Z91",
FAP9PCX %in% c("387c","387d" ) ~ "H0Z92",
FAP9PCX %in% c("676a","676b","676c","676d" ) ~ "J0Z20",
FAP9PCX %in% c("652a","652b","653a" ) ~ "J1Z40",
FAP9PCX %in% c("487a","487b" ) ~ "J1Z80",
FAP9PCX %in% c("217a","526e","642a","642b" ) ~ "J3Z40",
FAP9PCX %in% c("641b" ) ~ "J3Z41",
FAP9PCX %in% c("643a","644a" ) ~ "J3Z42",
FAP9PCX %in% c("217b","218a","641a" ) ~ "J3Z43",
FAP9PCX %in% c("651b","654a","654b","654c" ) ~ "J3Z44",
FAP9PCX %in% c("655a" ) ~ "J4Z40",
FAP9PCX %in% c("546a" ) ~ "J4Z60",
FAP9PCX %in% c("466c","477a" ) ~ "J4Z80",
FAP9PCX %in% c("546d","546e" ) ~ "J5Z60",
FAP9PCX %in% c("546c" ) ~ "J5Z61",
FAP9PCX %in% c("546b" ) ~ "J5Z62",
FAP9PCX %in% c("226b","466a","466b" ) ~ "J5Z80",
FAP9PCX %in% c("389a","451d" ) ~ "J6Z90",
FAP9PCX %in% c("389b" ) ~ "J6Z91",
FAP9PCX %in% c("387b" ) ~ "J6Z92",
FAP9PCX %in% c("685a" ) ~ "K0Z20",
FAP9PCX %in% c("210x","214e","214f","217d","637b","637d" ) ~ "K0Z40",
FAP9PCX %in% c("542a","542b" ) ~ "L0Z60",
FAP9PCX %in% c("543a","543b","543c" ) ~ "L1Z60",
FAP9PCX %in% c("313a","541a","541b","541c","541d" ) ~ "L2Z60",
FAP9PCX %in% c("543d","543e","543f","543g","543h" ) ~ "L2Z61",
FAP9PCX %in% c("461a","461b","461c" ) ~ "L3Z80",
FAP9PCX %in% c("461e","461f" ) ~ "L4Z80",
FAP9PCX %in% c("461d" ) ~ "L4Z81",
FAP9PCX %in% c("312c","312d","372a","372b","373a","373b","373c","373d" ) ~ "L5Z90",
FAP9PCX %in% c("372e" ) ~ "L5Z91",
FAP9PCX %in% c("372c","372d" ) ~ "L5Z92",
FAP9PCX %in% c("232a","233a","233b","233c","233d" ) ~ "L6Z00",
FAP9PCX %in% c("231a","371a" ) ~ "L6Z90",
FAP9PCX %in% c("544a" ) ~ "M0Z60",
FAP9PCX %in% c("478a" ) ~ "M1Z80",
FAP9PCX %in% c("478b","478c","478d" ) ~ "M1Z81",
FAP9PCX %in% c("388a","388c" ) ~ "M2Z90",
FAP9PCX %in% c("388b" ) ~ "M2Z91",
FAP9PCX %in% c("388e" ) ~ "M2Z92",
FAP9PCX %in% c("312e","383a","384a","385a","386a","386b","386c" ) ~ "N0Z90",
FAP9PCX %in% c("342e","342f","342g","342h" ) ~ "N0Z91",
FAP9PCX %in% c("522a" ) ~ "P0Z60",
FAP9PCX %in% c("523a","523b","523c","523d","524a","524b","524c","524d" ) ~ "P0Z61",
FAP9PCX %in% c("533c" ) ~ "P0Z61",
FAP9PCX %in% c("521a","521b" ) ~ "P0Z62",
FAP9PCX %in% c("451c" ) ~ "P1Z80",
FAP9PCX %in% c("451e","451f","451g","451h" ) ~ "P1Z81",
FAP9PCX %in% c("451a","451b" ) ~ "P1Z82",
FAP9PCX %in% c("331a","332a","332b","333b","333e","333f","351a" ) ~ "P2Z90",
FAP9PCX %in% c("333c","333d" ) ~ "P2Z91",
FAP9PCX %in% c("334a" ) ~ "P2Z92",
FAP9PCX %in% c("312a","312b","312g" ) ~ "P3Z90",
FAP9PCX %in% c("333a" ) ~ "P3Z91",
FAP9PCX %in% c("531a","531c","532a","532b","532c","533a" ) ~ "P4Z60",
FAP9PCX %in% c("531b" ) ~ "P4Z61",
FAP9PCX %in% c("452a","452b" ) ~ "P4Z80",
FAP9PCX %in% c("545a","545b","545c","545d" ) ~ "Q0Z60",
FAP9PCX %in% c("467a","467b" ) ~ "Q1Z80",
FAP9PCX %in% c("467c","467d" ) ~ "Q1Z81",
FAP9PCX %in% c("376a","376b","376c","376d" ) ~ "Q2Z90",
FAP9PCX %in% c("226a","376e","376f" ) ~ "Q2Z91",
FAP9PCX %in% c("551a" ) ~ "R0Z60",
FAP9PCX %in% c("552a","554j" ) ~ "R0Z61",
FAP9PCX %in% c("219a","554a" ) ~ "R1Z60",
FAP9PCX %in% c("554b","554c" ) ~ "R1Z61",
FAP9PCX %in% c("554d","554e","554f","554g" ) ~ "R1Z62",
FAP9PCX %in% c("556a" ) ~ "R1Z63",
FAP9PCX %in% c("553a","553b","553c","554h" ) ~ "R1Z66",
FAP9PCX %in% c("555a" ) ~ "R1Z67",
FAP9PCX %in% c("225a","463a","463b","463c","463d" ) ~ "R2Z80",
FAP9PCX %in% c("463e" ) ~ "R2Z83",
FAP9PCX %in% c("220x","222a","222b","223a","223b","223c","223d","223e" ) ~ "R3Z80",
FAP9PCX %in% c("223f","223g","223h","462a","462b","462d" ) ~ "R3Z80",
FAP9PCX %in% c("221a","221b" ) ~ "R3Z81",
FAP9PCX %in% c("462c","462e" ) ~ "R3Z82",
FAP9PCX %in% c("374b","374c","374d" ) ~ "R4Z90",
FAP9PCX %in% c("382d","383c","384c","385c","387a","388d" ) ~ "R4Z91",
FAP9PCX %in% c("374a" ) ~ "R4Z92",
FAP9PCX %in% c("226c","376g" ) ~ "R4Z93",
FAP9PCX %in% c("215d","683a" ) ~ "S0Z20",
FAP9PCX %in% c("215b","625d","636a" ) ~ "S0Z40",
FAP9PCX %in% c("215c","636b" ) ~ "S0Z41",
FAP9PCX %in% c("215a","636c" ) ~ "S0Z42",
FAP9PCX %in% c("561d" ) ~ "S1Z20",
FAP9PCX %in% c("636d" ) ~ "S1Z40",
FAP9PCX %in% c("488a" ) ~ "S1Z80",
FAP9PCX %in% c("561e","561f" ) ~ "S2Z60",
FAP9PCX %in% c("561a","561b","561c" ) ~ "S2Z61",
FAP9PCX %in% c("468a" ) ~ "S2Z80",
FAP9PCX %in% c("468b" ) ~ "S2Z81",
FAP9PCX %in% c("224a","224b","224c","224d" ) ~ "S3Z00",
FAP9PCX %in% c("377a","488b" ) ~ "S3Z90",
FAP9PCX %in% c("217c","562a","562b" ) ~ "T0Z60",
FAP9PCX %in% c("563c" ) ~ "T1Z60",
FAP9PCX %in% c("563b" ) ~ "T2A60",
FAP9PCX %in% c("563a" ) ~ "T2B60",
FAP9PCX %in% c("564a" ) ~ "T3Z60",
FAP9PCX %in% c("534a","534b" ) ~ "T3Z61",
FAP9PCX %in% c("217e","525a","525b","525c","684a" ) ~ "T4Z60",
FAP9PCX %in% c("525d" ) ~ "T4Z61",
FAP9PCX %in% c("628e","684b" ) ~ "T4Z62",
FAP9PCX %in% c("227c","227d","564b" ) ~ "T6Z61",
FAP9PCX %in% c("464a" ) ~ "U0Z80",
FAP9PCX %in% c("464b" ) ~ "U0Z81",
FAP9PCX %in% c("375a","375b" ) ~ "U0Z90",
FAP9PCX %in% c("372f","425a" ) ~ "U0Z91",
FAP9PCX %in% c("352a","353a" ) ~ "U0Z92",
FAP9PCX %in% c("353b","353c","465b","637c" ) ~ "U1Z80",
FAP9PCX %in% c("465c" ) ~ "U1Z81",
FAP9PCX %in% c("465a" ) ~ "U1Z82",
FAP9PCX %in% c("354b","354c","354d","354e","354f","354g" ) ~ "U1Z91",
FAP9PCX %in% c("352b" ) ~ "U1Z92",
FAP9PCX %in% c("354a" ) ~ "U1Z93",
FAP9PCX %in% c("526a","526b","526c","526d" ) ~ "V0Z60",
FAP9PCX %in% c("431a","431b","431c","431d","431f","431g" ) ~ "V1Z80",
FAP9PCX %in% c("431e" ) ~ "V1Z81",
FAP9PCX %in% c("311a","311b","344a","344b","344c" ) ~ "V2Z90",
FAP9PCX %in% c("311c" ) ~ "V2Z91",
FAP9PCX %in% c("311e" ) ~ "V2Z92",
FAP9PCX %in% c("311f","344d" ) ~ "V2Z93",
FAP9PCX %in% c("433a","433d" ) ~ "V3Z70",
FAP9PCX %in% c("433b","433c" ) ~ "V3Z71",
FAP9PCX %in% c("432a","432b","432c","432d" ) ~ "V3Z80",
FAP9PCX %in% c("311d" ) ~ "V3Z90",
FAP9PCX %in% c("343a" ) ~ "V4Z80",
FAP9PCX %in% c("434a","434d","434e","434f","434g" ) ~ "V4Z83",
FAP9PCX %in% c("434b","434c" ) ~ "V4Z85",
FAP9PCX %in% c("227a" ) ~ "V5Z00",
FAP9PCX %in% c("435a","435b" ) ~ "V5Z81",
FAP9PCX %in% c("424a" ) ~ "V5Z82",
FAP9PCX %in% c("422d","422e" ) ~ "V5Z84",
FAP9PCX %in% c("421a","421b" ) ~ "W0Z80",
FAP9PCX %in% c("341a","422a","422b","422c" ) ~ "W0Z90",
FAP9PCX %in% c("227b","341b" ) ~ "W0Z91",
FAP9PCX %in% c("342a","342b","342c","342d" ) ~ "W0Z92",
FAP9PCX %in% c("423a","423b" ) ~ "W1Z80",
FAP9PCX %in% c("335a" ) ~ "X0Z00",
FAP9PCX %in% c("441a","441b" ) ~ "X0Z01",
TRUE ~ "ZZZZZ")