Started to automate the shiny interface to dynamically create choices. Still todo: server