From e1d4b63b59edbc2f36d0d893cb84419307271cea Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Mon, 12 Jun 2023 19:19:19 +0200
Subject: [PATCH] delete cwp_grids.R - obsolete

---
 cwp_grids.R | 45 ---------------------------------------------
 1 file changed, 45 deletions(-)
 delete mode 100644 cwp_grids.R

diff --git a/cwp_grids.R b/cwp_grids.R
deleted file mode 100644
index 68a317a..0000000
--- a/cwp_grids.R
+++ /dev/null
@@ -1,45 +0,0 @@
-require(ows4R)
-require(readr)
-require(googledrive)
-
-WFS_FAO_NFI <- WFSClient$new(
-  url = "https://www.fao.org/fishery/geoserver/cwp/wfs",
-  serviceVersion = "1.0.0", logger = "INFO"
-)
-
-
-layers <- c("cwp:cwp-grid-map-1deg_x_1deg", "cwp:cwp-grid-map-5deg_x_5deg", "cwp:cwp-grid-map-10deg_x_10deg", "cwp:cwp-grid-map-20deg_x_20deg") 
-erased_layers <- paste0(layers, "_erased")
-
-#CWP Grids not erased by continent
-cwp_grid <- do.call(rbind, lapply(layers, WFS_FAO_NFI$getFeatures))
-cwp_grid$code <- cwp_grid$CWP_CODE
-cwp_grid$label <- cwp_grid$CWP_CODE
-
-sf::st_write(cwp_grid, "fao_cwp_grid.csv", layer_options = "GEOMETRY=AS_WKT")
-fao_cwp_grid <- readr::read_csv("fao_cwp_grid.csv")
-colnames(fao_cwp_grid)[colnames(fao_cwp_grid)=="WKT"] <- "geom_wkt"
-readr::write_csv(fao_cwp_grid, "fao_cwp_grid.csv")
-
-#CWP Grids erased by continent
-cwp_grid_erased <- do.call(rbind, lapply(erased_layers, function(x){
-  sf = WFS_FAO_NFI$getFeatures(x)
-  sf$grid_area <- NULL
-  return(sf)
-}))
-
-cwp_grid_erased$code <- cwp_grid_erased$CWP_CODE
-cwp_grid_erased$label <- cwp_grid_erased$CWP_CODE
-
-sf::st_write(cwp_grid_erased, "fao_cwp_grid_erased.csv", layer_options = "GEOMETRY=AS_WKT")
-fao_cwp_grid_erased <- readr::read_csv("fao_cwp_grid_erased.csv")
-colnames(fao_cwp_grid_erased)[colnames(fao_cwp_grid_erased)=="WKT"] <- "geom_wkt"
-readr::write_csv(fao_cwp_grid_erased, "fao_cwp_grid_erased.csv")
-
-#logic to upload on drive
-folder_codelists_id <- googledrive::drive_get("~/geoflow_tunaatlas/data/inputs/codelists")
-googledrive::drive_upload("fao_cwp_grid.csv", as_id(folder_codelists_id), overwrite = TRUE)
-googledrive::drive_upload("fao_cwp_grid_erased.csv", as_id(folder_codelists_id), overwrite = TRUE)
-
-
-