tweaked to allocation selections in shiny