R/SIG.export.R

In jbfagotfede39/aquatools: Tools for freshwater managers

#' Export de données en shp
#'
#' Cette fonction permet d'exporter un dataframe (avec deux colonnes X et Y) ou un sf en Lambert 93 dans un shapefile/geojson/kml/excel
#' @name SIG.export
#' @param data Dataframe à exporter
#' @param nomfichier Nom du fichier de sortie
#' @param shp Export au format shapefile (\code{true} par défaut)
#' @param kml Export au format kml (\code{true} par défaut)
#' @param geojson Export au format geojson (\code{true} par défaut)
#' @param excel Export au format excel (\code{true} par défaut)
#' @keywords stations poissons
#' @import sf
#' @import tidyverse 
#' @export
#' @examples
#' SIG.export(Stations, glue("{today()}_Export_stations"))
#' Stations %>% SIG.export("Stations", shp = F, kml = F, excel = F)
#' Resultats %>% SIG.export(glue("{today()}_Suivi_MI_BV_Bienne"), shp = F, kml = F, excel = F)
#' Stations %>% SIG.export(glue("{today()}_{str_replace_all(titre, ' ', '_')}"))
#' DataToAdd %>% st_as_sf(coords = c("XLong", "YLat"), crs = 4269) %>% st_transform(2154) %>% SIG.export("GCL_Bathy_points_bruts")

##### TODO LIST #####
# 
#####################

SIG.export <- function(
  data = Stations,
  nomfichier = glue("{today()}_Export_stations"),
  shp = TRUE,
  kml = TRUE,
  geojson = TRUE, 
  excel = TRUE)
{

#### Détection du format d'entrée ####
if("sf" %in% class(data) == TRUE) Datatype <- "sf"
if("sf" %in% class(data) == FALSE) Datatype <- "tbl_df"


#### Transformations ####
if(Datatype == "tbl_df"){
if("X" %in% colnames(data) == TRUE) data <- data %>% st_as_sf(coords = c("X", "Y"), crs = 2154) # Cas général
if("xlambert" %in% colnames(data) == TRUE) data <- data %>% st_as_sf(coords = c("xlambert", "ylambert"), crs = 2154) # pour la table issue de Multifish
#if("X" %in% colnames(data) == FALSE) stop(paste0(data, " ne contient pas de colonnes X et Y"))
}

if(Datatype == "sf"){data <- data %>% st_transform(2154)}

#### Vérifications ####
if("sf" %in% class(data) == FALSE) stop(paste0("Impossible de spatialiser ",data))

##### Exportation #####
# Export en geojson #
if(geojson == TRUE){
  st_write(data, dsn = paste0(nomfichier, ".geojson"), driver='GeoJSON', overwrite = TRUE)
}

# Export en excel #
if(excel == TRUE){
  openxlsx::write.xlsx(st_set_geometry(data, NULL), paste0(nomfichier, ".xlsx"), sheetName = "Feuille1", row.names = F, showNA = F)
  #st_write(data, dsn = paste0(nomfichier, ".xlsx"), layer = str_replace(nomfichier, "-", "_"), driver = "XLSX", layer_options = "OVERWRITE=true") # Pratique mais génère un message d'avertissement à l'ouverture du fichier dans excel
}

# Export en kml #
if(kml == TRUE){
data %>% 
  mutate(name = ifelse("chsta_coderhj" %in% names(.), chsta_coderhj, NA)) %>% 
  mutate(name = ifelse("nom" %in% names(.), nom, NA)) %>% # pour la table de multifish
  st_transform(4326) %>% 
  st_write(dsn = paste0(nomfichier, ".kml"), driver='kml', overwrite = TRUE)
}

# Export en shp #
if(shp == TRUE){
  st_write(data, paste0(nomfichier, ".shp"), overwrite = TRUE)
}


} # Fin de la fonction