move-spam-files

AgrDataSci · Jan 30, 2024 · 0106024 · 0106024
1 parent 7be2431
commit 0106024
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -29,3 +29,5 @@ token/api-key.txt
 data/wc2.1-global
 ecocrop-raw
 ecocrop
+data/SPAM
+
diff --git a/script/01.1-move-spam-files.R b/script/01.1-move-spam-files.R
@@ -0,0 +1,24 @@
+library("geodata")
+
+from = "/Users/kauedesousa/local-workflow/geo-raster-shapefile/spam2010v2r0_global_harv_area/"
+
+here = "data/SPAM/"
+
+crops = read.csv("data/mapspam-crop-names.csv")
+
+crops = toupper(crops$spamname)
+
+identifier = paste(crops, collapse = "|")
+
+files = list.files(from, pattern = identifier, full.names = TRUE)
+
+f = grep("H.tif$|A.tif$", files)
+
+f = files[f]
+
+n = gsub(from, "", f)
+
+file.copy(f, paste0(here, n))
+
+
+