world[world$name == "United States","value"] <- input[grepl("USA", input$Entity),"Value"]
world[world$name == "Korea","value"] <- input[grepl("South Korea", input$Entity),"Value"]
world[world$name == "Czech Rep.","value"] <- input[grepl("Czech Republic", input$Entity),"Value"]
world[world$name == "Dominican Rep.","value"] <- input[grepl("Dominican Republic", input$Entity),"Value"]
world[world$name == "Dem. Rep. Congo","value"] <- input[scores$Entity == "Congo (Kinshasa)","Value"]
world[world$name == "Congo","value"] <- input[scores$Entity == "Congo (Brazzaville)","Value"]
world[world$name == "Lao PDR","value"] <- input[scores$Entity == "Laos","Value"]
world[world$name == "S. Sudan","value"] <- input[scores$Entity == "South Sudan","Value"]
world[world$name == "Bosnia and Herz.","value"] <- input[scores$Entity == "Bosnia and Herzegovina","Value"]
world[world$name == "Central African Rep.","value"] <- input[scores$Entity == "Central African Republic","Value"]
world[world$name == "Macedonia","value"] <- input[scores$Entity == "North Macedonia","Value"]
world[world$name == "Côte d'Ivoire","value"] <- input[scores$Entity == "Ivory Coast","Value"]
world[world$name == "Somaliland","value"] <- input[scores$Entity == "Somaliland region","Value"]
world[world$name == "Taiwan","value"] <- input[scores$Entity == "Taiwan Province of China","Value"]