## Packages
# library(adehabitatHR)
# library(maptools)
library(rgeos)
library(rgdal)
library(sp)
# library(raster)
# library(spatstat)
# library(xlsx)
# library(spatialEco)
# library(MASS)
# library(rgdal)
# library(chron)
# library(plotKML)
# library(adehabitatHR)

# Définition des répertoires de travail
rm(list=ls()) # Efface l'environnement de travail
wd1<-"D:/Mes Donnees/SWM/Data/Regroupement/20190607_Doume/Suivi des parcours de chasse et pêche/Chasse/En cours"
# wd2<-"D:/Mes Donnees/SWM/R2/Suivi prélèvement/Chasse/Analyse"

setwd(wd1)

# Lire des shp par lot
direct<-wd1
shp_files <- list.files(direct, pattern = "\\.shp$")
print(shp_files)

##
names = c()

rgdal_batch_shp <- function(shp_list) {


  layer_name <- as.character(gsub(".shp","",shp_list))

 ##
 names <- append(names, layer_name)

  shp_spdf <-readOGR(dsn = direct, stringsAsFactors = FALSE, verbose = TRUE,
                     useC = TRUE, dropNULLGeometries = TRUE, addCommentsToPolygons = TRUE,
                     layer = layer_name, require_geomType = NULL,
                     p4s = NULL, encoding = 'ESRI Shapefile')
}

batch_shp_list <- lapply(shp_files, rgdal_batch_shp)


for (i in seq(batch_shp_list)){
    ## ICI faut print names[i]
  writeOGR(batch_shp_list[[i]],paste("D:/Mes Donnees/SWM/R2/Suivi prélèvement/Chasse/Analyse/shp_Doumé",i,".gpx",sep = "_"), dataset_options="GPX_USE_EXTENSIONS=yes",layer="waypoints",driver="GPX", overwrite_layer = T)
}

head(batch_shp_list)


for (i in seq(batch_shp_list))
  assign(paste("shp_Doumé", i, sep = ""), batch_shp_list[[i]])