R and shiny to check data coming from a sample survey