Doubt with reactive event - Query in table

Guys I need to read a value in a drop-down list, this value take it and put it inside the as.numeric function, the value r I use it in a graph How can I do it?

    r <- as.numeric(arcs$input$select)