ideal point in shiny GUI