R/make_raster_filename.R

In adrHuerta/MIDAS: Useful functon for dekadal precipitation monitoring of SENAMHI

#' @title make raster files
#' @description make raster files to save it in a specific directory
#' @author Adrian Huerta
#' @param dekada_date a character object (a date in format "YYYY/MM/DD")
#' @return a list object of four names directories
#' @examples
#' make_raster_filename(dekada_date = "2017-01-11")
#' make_raster_filename(dekada_date = "2017-01-21")
#' make_raster_filename(dekada_date = "2017-02-01")
#' @export

make_raster_filename <- function(dekada_date = Sys.Date()){

  check_date_dek(dekada_date)

  dekada_date <- as.Date(dekada_date)
  daily_val <- format(dekada_date, "%d")

  raster_dek <- "DEK_%s.tif"
  raster_dek_stat <- "DEC_%s.tif"
  raster_dek_png <- "DEK_%s.png"
  raster_dek_stat_png <- "DEC_%s.png"

  if( daily_val == "01" ) {

    date_for <- dekada_date - as.difftime(1, unit="days")
    date_for <- paste(format(date_for, "%Y"), format(date_for, "%m"), "_3", sep = "")
    raster_dek <- sprintf(raster_dek, date_for)
    raster_dek_stat <- sprintf(raster_dek_stat, date_for)
    raster_dek_png <- sprintf(raster_dek_png, date_for)
    raster_dek_stat_png <- sprintf(raster_dek_stat_png, date_for)

  } else if ( daily_val == "11") {

    date_for <- paste(format(dekada_date, "%Y"), format(dekada_date, "%m"), "_1", sep = "")
    raster_dek <- sprintf(raster_dek, date_for)
    raster_dek_stat <- sprintf(raster_dek_stat, date_for)
    raster_dek_png <- sprintf(raster_dek_png, date_for)
    raster_dek_stat_png <- sprintf(raster_dek_stat_png, date_for)

  } else if ( daily_val == "21") {

    date_for <- paste(format(dekada_date, "%Y"), format(dekada_date, "%m"), "_2", sep = "")
    raster_dek <- sprintf(raster_dek, date_for)
    raster_dek_stat <- sprintf(raster_dek_stat, date_for)
    raster_dek_png <- sprintf(raster_dek_png, date_for)
    raster_dek_stat_png <- sprintf(raster_dek_stat_png, date_for)

  }

  return(list(raster_dek = raster_dek,
              raster_dek_stat = raster_dek_stat,
              raster_dek_png = raster_dek_png,
              raster_dek_stat_png = raster_dek_stat_png))

}