Jianghao

library(maps)
library(shiny)
library(stringr)

worlddf <- map("world")

# restrict selection to coutries only
locations <- worlddf$names

countries <-subset(locations,is.na(str_locate(locations,":")))