sellers.R

# Now read the district ownership list and merge into the total list
require(RCurl)
myCsv = getURL("https://docs.google.com/spreadsheet/pub?key=0AtqalGIOYWlYdHdjbHQ3MmNLODZXdXVuaUVENkZCYlE&single=true&gid=1&range=A1%3AB233&output=csv")
districtowner = read.csv(textConnection(myCsv))
colnames(districtowner) = c("Distrikt", "Seller")

nn = merge(nn, districtowner, by.x = 16, by.y = 1)

sellers = as.character(unique(nn$Seller))

for(i in 1:length(sellers)) {
  seller = sellers[i]
  liste = nn[nn$Seller==seller,]
  write.csv2(liste, file = paste("sellers/", seller, ".csv", sep=""),row.names=FALSE)
}