This is not robust: it stops with an error if any ID in ids is not
one of the names of map.
Examples
set_seed(1)
ped <- qcStudbook(nprcgenekeepr::pedSix)
obfuscated <- obfuscatePed(ped, map = TRUE)
someIds <- c("s1", "s2", "d1", "d1")
mapIdsToObfuscated(someIds, obfuscated$map)
#> [1] "JNAN5L" "0ZR5QI" "2D0P3X" "2D0P3X"
