diff mykrobe_parser.R @ 5:deebc6410d13 draft

planemo upload for repository https://github.com/phac-nml/mykrobe-parser commit bbf7dd6b56e8ee77cff1f98a42a5abadd681b7ac
author nml
date Thu, 09 May 2019 14:16:34 -0400
parents 8529045f0fdf
children 8e7e5a660942
line wrap: on
line diff
--- a/mykrobe_parser.R	Thu Apr 25 10:13:46 2019 -0400
+++ b/mykrobe_parser.R	Thu May 09 14:16:34 2019 -0400
@@ -291,7 +291,7 @@
         mutate(variants = strsplit(variants, "__")) %>% # Split the mutations across rows (list first then split across rows)
         unnest(variants) %>% 
         separate(variants, c("gene", "mutation"), "_") %>% 
-        mutate(columnname = ifelse(gene %in% c("tlyA", "rrs", "eis", "gid"), # Check for columns that include the drug name or not and paste accordingly
+        mutate(columnname = ifelse(gene %in% c("gyrA", "tlyA", "rrs", "eis", "gid"), # Check for columns that include the drug name or not and paste accordingly
                                    paste("Mykrobe", drug, gene, sep = "_"),
                                    paste("Mykrobe", gene, sep = "_"))) %>% 
         # Extract out the mutation information with a regex that covers all potential genes