Get the organism Box.
getOrganismBox()
selectInput
getOrganismBox
getOrganismBox makes the organism box
x <- getOrganismBox()