R/trmmControls.R

Defines functions trmmServer

trmmServer <- function(type = c("daily", "3-hourly")) {
  ## daily
  if (type[1] == "daily") {
    "ftp://disc3.nascom.nasa.gov/data/s4pa/TRMM_L3/TRMM_3B42_daily/"
  ## 3-hourly
  } else if (type[1] == "3-hourly") {
    "ftp://disc3.nascom.nasa.gov/data/s4pa/TRMM_L3/TRMM_3B42/"
  ## invalid
  } else {
    stop("'type = ", type[1], "' not supported. See ?getTRMM for available options.\n")
  }
}
environmentalinformatics-marburg/chirps documentation built on Dec. 6, 2017, 6:23 p.m.