clickedCountry <- eventReactive(input$map1_shape_click, {
     return(input$map1_shape_click$id)
     })