library(rgdal)
library(rgeos)
districts <- readOGR(path.expand("./maps-master/Districts/Census_2011"),layer = "2011_Dist")
districts <- districts[districts$ST_NM=="Odisha",]
stateborder <- gUnaryUnion(districts)
pdf("map.pdf")
plot(stateborder)
dev.off()