-
Notifications
You must be signed in to change notification settings - Fork 1
/
workflow.R
20 lines (15 loc) · 1.08 KB
/
workflow.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
root <- "C:/IAvH/DINAVIS_set16/scriptsUniandes/"
scriptsPath <- "scripts"
## Variables interactivas
.refineType <- "species" # or 'region'
.refreshDB <- TRUE # or FALSE
.spRefine <- "Ara macao"
.inShapePath <- NULL # or poligono de class() == "SpatialPolygonsDataFrame" y con gisFilter@proj4string@projargs == "+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"
.inFilePath <- NULL # or csv as "estructuraset16.csv"
.routineType <- "Colombia" # or 'World'
source(paste0(root,"/", scriptsPath, "/dbDownload.R"))
updateLBAB(root, outPath = "set0/", refineType = .refineType, refreshDB = .refreshDB, spRefine = .spRefine, inShapePath = .inShapePath, inFilePath = .inFilePath)
source(paste0(root,"/", scriptsPath, "/verifTax.R"))
verifTax(root, set0Path = "set0/", outPath = "set1/", .user = "root", .password = "root", .dbname = "col2012ac", .host = "localhost", registros = NULL)
source(paste0(root,"/", scriptsPath, "/verifGeo.R"))
verifGeo(root, routineType = .routineType, inShapePath = .inShapePath, set1Path = "set1/", set2Path = "set2/", set16Path = "set16/", mapsPath = "maps/")