df <- data.frame( ID = c(1, 1, 2, 2, 3, 3, 3),
icd_1 = c("I10.2", "E03.9", "E11.9", "N18.9", "A04.7", NA, NA),
icd_2 = c("I11.9", "E78.5", "E78.2", "E14.9","A04.7", "E11.9", NA))
long_to_wide(df, "ID", c("icd_1", "icd_2"), batch_size = 1000)
Run the code above in your browser using DataLab