R and shiny to control data coming from a sample survey