Genotype ID using R Shiny