Shiny lookup value from a dataframe as per selectizeInput


you can filter your data in the renderText using the input with dplyr using:
dataframe %>% filter(Country == input$name)

By the way I can't run the code you have posted. You are more likely to get responses if your code is reproducible. See below how to make a reprex.