R example : appending gender to a CSV file using NamSor batch API

gistfile1.txt

library(namsor)
setwd("D:/Sync/Dropbox/NamSor_CarmenAguilarGarcia/")
names<-read.csv("combine.csv",header = F)

str(names)
names$V1<-as.character(names$V1)
names$V2<-as.character(names$V2)
names$V3<-as.character(names$V3)




gendercolcol<-vector(length = 10^6)
b<-1
c<-1000

for (i in 1:1000) {

  namesnames<-names[b:c,]
 
  r_gender<-c()
   
  for (t in 1:1000){
  for (o in  namesnames$V2[t]) {
    for (a in namesnames$V3[t]) {
      y <- PersonalNameGeoIn$new(as.character(t+1),o,a)
    }
    r_gender <- c(r_gender,y) 
  }
  
}

var_gender <- BatchPersonalNameGeoIn$new(personalNames = r_gender)


api.instance <- PersonalApi$new()
api.instance$apiClient$apiKeys['X-API-KEY'] <- '<your API key>';
result_gender <- api.instance$GenderFullGeoBatch(batch.personal.name.geo.in=var_gender)

gendercol<-vector(length = 1000)

for (n in 1:1000) {
  #print(result_gender$personalNames[[n]]$likelyGender)
  genderdata <- result_gender$personalNames[[n]]$likelyGender
  gendercol[n] <- genderdata
  
}


gendercolcol[b:c]<-gendercol

b<-b+1000
c<-c+1000

print(i)

}

names<-cbind(names,gendercolcol)

write.csv(names,"names.csv")