Resolving #20

R/CDownloadS.R

@@ -24,7 +24,8 @@
 #' @param TChunkSize Numeric. Number of layers to bundle in each individual download. Default is 6000 to adhere to most restrictive CDS limits: https://cds.climate.copernicus.eu/live/limits.
 #' @param Cores Numeric. How many cores to use when carrying out temporal aggregation. Default is 1.
 #' @param verbose Logical. Whether to print/message function progress in console or not.
-#' @param Keep_Raw Logical. Whether to retain raw downloaded data or not.
+#' @param Keep_Raw Logical. Whether to retain raw downloaded data or not. Default is FALSE.
+#' @param Save_Final Logical. Whether to write the final SpatRaster to the hard drive. Default is TRUE.
 #'
 #' @importFrom tools file_path_sans_ext
 #' @importFrom terra rast
@@ -155,7 +156,8 @@ CDownloadS <- function(Variable = NULL, # which variable
  TChunkSize = 6000,
  Cores = 1, # parallelisation
  verbose = TRUE, # verbosity
- Keep_Raw = FALSE
+ Keep_Raw = FALSE,
+ Save_Final = TRUE
  ){
  ## Catching Most Frequent Issues ===============
  #--- API Credentials
@@ -325,12 +327,14 @@ CDownloadS <- function(Variable = NULL, # which variable
  terra::metags(CDS_rast) <- Meta_vec
 
  ### write file
- if(FileExtension == ".tif"){
- terra::writeRaster(CDS_rast, filename = file.path(Dir, FileName))
- }
- if(FileExtension == ".nc"){
- CDS_rast <- Meta.NC(NC = CDS_rast, FName = file.path(Dir, FileName),
- Attrs = terra::metags(CDS_rast), Write = TRUE)
+ if(Save_Final){
+ if(FileExtension == ".tif"){
+ terra::writeRaster(CDS_rast, filename = file.path(Dir, FileName))
+ }
+ if(FileExtension == ".nc"){
+ CDS_rast <- Meta.NC(NC = CDS_rast, FName = file.path(Dir, FileName),
+ Attrs = terra::metags(CDS_rast), Write = TRUE)
+ }
  }
 
  ### unlink temporary files