How Shiny reassign input after updateSelectInput call?

Question

I have the following server code, which returns an error "attempt to select less than one element in get1index"

server <- function(input, output,