library(data.table)
EPA="./Tadarida/Vigie-Chiro_scripts/Vigie-Chiro_scripts/misc/extr_PF_ActNuit.r"
PP=c("55","56","57","58","59","5a","5b","5c","5d","5e","5f","60")
#PP=c("5b")
args=""
args[3]="0"
args[10]="./VigieChiro/Raw"
args[12]=""
args[13]=""
args[14]=""
args[15]=F #sort out doubtful data (probable hardware problems)
args[16]="mnt/VigieChiro/export_validtot210408.txt"
args[17]=F #correct for validation or not
FRaw="none"
for (i in 1:length(PP))
{
print(paste(i,Sys.time()))
args[1]="PrefPart"
for (j in c(c(0:9),"a","b","c","d","e","f"))
{
args[2]=paste0(PP[i],j)
print(args[2])
args[4]=paste0(args[10],"/DataLP_PF_export_",args[2],".csv")
if(file.exists(args[4]))
{
source(EPA) # 1e6 donnees/min
Sys.time()
}
}
}
Pattern=basename(paste0(args[10],"/SpNuit2_",args[3],"_DataLP_PF_export_"))
SpToAgg=list.files(args[10],pattern=Pattern,full.names=T)
my.data=list()
for (k in 1:length(SpToAgg))
{
my.data[[k]]=fread(SpToAgg[k])
}
ActTot=rbindlist(my.data)
fwrite(ActTot,paste0(args[10],"/SpNuit2_",args[3],"_DataLP_PF_exportTot.csv"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.