tweaked to allocation selections in shiny
working on it