data_prep <- function(download_dir = '~/Downloads/', year=2019){ #rootdir = root directory DDIR <- download_dir TDIR <- getwd() if(.Platform$OS.type == "unix") { slash <- '/' } else { slash <- '' } # SCRIPTS unzip(paste0(DDIR,'17198783.zip'),exdir=paste0(TDIR,'/SCRIPTS',slash)) print(paste0('SCRIPTS unzipped')) # DATA if(year == 2019){ unzip(paste0(DDIR,'17215094.zip'),exdir=paste0(TDIR,'/DATA',slash)) print(paste0('AGE (2019) - Historic Coastline Raster unzipped')) unzip(paste0(DDIR,'17216081.zip'),exdir=paste0(TDIR,'/DATA',slash)) print(paste0('SLW 140 (2019) - Shelf Sea Extent Rasters unzipped')) } if(year == 2021){ unzip(paste0(DDIR,'20029304.zip'),exdir=paste0(TDIR,'/DATA',slash)) print(paste0('AGE (2021) - Historic Coastline Raster unzipped')) unzip(paste0(DDIR,'20029220.zip'),exdir=paste0(TDIR,'/DATA',slash)) print(paste0('SLW 140 (2021) - Shelf Sea Extent Rasters unzipped')) } unzip(paste0(DDIR,'17218724.zip'),exdir=paste0(TDIR,'/DATA',slash)) print(paste0('STC - Spatial Polygons for Sunda, Timor and Caribbean regions unzipped')) file.copy(from = paste0(DDIR,'BATHYMETRY.tif'), to = paste0(TDIR,'/DATA/BATHYMETRY.tif')) print(paste0('BATHYMETRY copied')) unzip(paste0(TDIR,'/DATA/SLW_mosaic.zip'),exdir=paste0(TDIR,'/DATA/SLW_mosaic',slash)) unzip(paste0(TDIR,'/DATA/AGE_tiles.zip'),exdir=paste0(TDIR,'/DATA/AGE_tiles',slash)) unzip(paste0(TDIR,'/DATA/SLW_tiles.zip'),exdir=paste0(TDIR,'/DATA/SLW_tiles',slash)) file.remove(paste0(TDIR,'/DATA/SLW_mosaic.zip')) file.remove(paste0(TDIR,'/DATA/AGE_tiles.zip')) file.remove(paste0(TDIR,'/DATA/SLW_tiles.zip')) setwd(paste0(TDIR,'/SCRIPTS/')) print(paste0('File structure created: navigate to:', TDIR)) print(paste0("work directory set to: ",TDIR,'/SCRIPTS')) }