sort diagnoses in alphabetical order for each patient

for_Micah.R

library(tidyverse)
tryThis <- data.frame(x = c("A,  B ", 
                            "A", 
                            "B",
                            "C, A, B",
                            "C, B",
                            "C",
                            "A, B"))

remove_spaces         <- function(x){ gsub(x, pattern = " ", replacement = "")}
split_unlist_and_sort <- function(x){ sort(unlist(strsplit(x, split = ","))) }


tryThis <- tryThis %>% 
  mutate(x = as.character(x)) %>%
  mutate(x = remove_spaces(x)) %>%
  mutate(x = sapply(x, split_unlist_and_sort)) %>%
  mutate(x = sapply(x, function(i) paste(i, sep = ","))) %>%
  mutate(has_B <- str_detect(x, pattern = "B"))