misc/AInscrire.r

In cesco-lab/Vigie-Chiro_scripts: Predict Distribution Of Chiropter

library(data.table)
Nouveau=T

U0=fread("C:/wamp64/www/utilisateurs_prev.txt")
U1=fread("C:/wamp64/www/utilisateurs.txt")

test=match(U1$identifiant,U0$identifiant)
if(Nouveau)
{
  Unouveau=subset(U1,!(U1$identifiant %in% U0$identifiant))
}else{
  Unouveau=U1
}

Unouveau$instruction=paste("INVITE vigie-chiro",Unouveau$email)

Unouveau$email

fwrite(Unouveau,"AInscrire.csv",sep=";")