R/get-tiles.R

In italocegatta/modisdown: Provides functions to downaload MODIS Vegetation Index Products (NDVI and EVI)

#' Get MOD13 avaiables tiles
#'
#' @export
#'
get_tiles <- function(day) {

  page <- xml2::read_html(paste("http://e4ftl01.cr.usgs.gov/MOLT/MOD13Q1.006", format(day, "%Y.%m.%d"), sep = "/"))

  node <- rvest::html_nodes(page, "a")

  text <- rvest::html_text(node, trim = T)[-c(1:7)]

  name <- '['(text, stringr::str_detect(text, "[hdf]$"))

  z <- stringr::str_sub(name, 18, 23)

  return(z)

}

mod13_tiles <- c(
  "h00v08", "h00v09", "h00v10", "h01v07", "h01v08", "h01v09", "h01v10", "h01v11", "h02v06", "h02v08", "h02v09", "h02v10", "h02v11", "h03v06",
  "h03v07", "h03v09", "h03v10", "h03v11", "h04v09", "h04v10", "h04v11", "h05v10", "h05v11", "h05v13", "h06v03", "h06v11", "h07v03", "h07v05",
  "h07v06", "h07v07", "h08v03", "h08v04", "h08v05", "h08v06", "h08v07", "h08v08", "h08v09", "h08v11", "h09v02", "h09v03", "h09v04", "h09v05",
  "h09v06", "h09v07", "h09v08", "h09v09", "h10v02", "h10v03", "h10v04", "h10v05", "h10v06", "h10v07", "h10v08", "h10v09", "h10v10", "h10v11",
  "h11v02", "h11v03", "h11v04", "h11v05", "h11v06", "h11v07", "h11v08", "h11v09", "h11v10", "h11v11", "h11v12", "h12v01", "h12v02", "h12v03",
  "h12v04", "h12v05", "h12v07", "h12v08", "h12v09", "h12v10", "h12v11", "h12v12", "h12v13", "h13v01", "h13v02", "h13v03", "h13v04", "h13v08",
  "h13v09", "h13v10", "h13v11", "h13v12", "h13v13", "h13v14", "h14v00", "h14v01", "h14v02", "h14v03", "h14v04", "h14v09", "h14v10", "h14v11",
  "h14v14", "h15v00", "h15v01", "h15v02", "h15v03", "h15v05", "h15v07", "h15v11", "h15v14", "h16v00", "h16v01", "h16v02", "h16v05", "h16v06",
  "h16v07", "h16v08", "h16v09", "h16v12", "h16v14", "h17v00", "h17v01", "h17v02", "h17v03", "h17v04", "h17v05", "h17v06", "h17v07", "h17v08",
  "h17v10", "h17v12", "h17v13", "h18v00", "h18v01", "h18v02", "h18v03", "h18v04", "h18v05", "h18v06", "h18v07", "h18v08", "h18v09", "h18v14",
  "h19v00", "h19v01", "h19v02", "h19v03", "h19v04", "h19v05", "h19v06", "h19v07", "h19v08", "h19v09", "h19v10", "h19v11", "h19v12", "h20v00",
  "h20v01", "h20v02", "h20v03", "h20v04", "h20v05", "h20v06", "h20v07", "h20v08", "h20v09", "h20v10", "h20v11", "h20v12", "h20v13", "h21v00",
  "h21v01", "h21v02", "h21v03", "h21v04", "h21v05", "h21v06", "h21v07", "h21v08", "h21v09", "h21v10", "h21v11", "h21v13", "h22v01", "h22v02",
  "h22v03", "h22v04", "h22v05", "h22v06", "h22v07", "h22v08", "h22v09", "h22v10", "h22v11", "h22v13", "h22v14", "h23v01", "h23v02", "h23v03",
  "h23v04", "h23v05", "h23v06", "h23v07", "h23v08", "h23v09", "h23v10", "h23v11", "h24v02", "h24v03", "h24v04", "h24v05", "h24v06", "h24v07",
  "h24v12", "h25v02", "h25v03", "h25v04", "h25v05", "h25v06", "h25v07", "h25v08", "h25v09", "h26v02", "h26v03", "h26v04", "h26v05", "h26v06",
  "h26v07", "h26v08", "h27v03", "h27v04", "h27v05", "h27v06", "h27v07", "h27v08", "h27v09", "h27v10", "h27v11", "h27v12", "h27v14", "h28v03",
  "h28v04", "h28v05", "h28v06", "h28v07", "h28v08", "h28v09", "h28v10", "h28v11", "h28v12", "h28v13", "h28v14", "h29v03", "h29v05", "h29v06",
  "h29v07", "h29v08", "h29v09", "h29v10", "h29v11", "h29v12", "h29v13", "h30v05", "h30v06", "h30v07", "h30v08", "h30v09", "h30v10", "h30v11",
  "h30v12", "h30v13", "h31v06", "h31v07", "h31v08", "h31v09", "h31v10", "h31v11", "h31v12", "h31v13", "h32v07", "h32v08", "h32v09", "h32v10",
  "h32v11", "h32v12", "h33v07", "h33v08", "h33v09", "h33v10", "h33v11", "h34v07", "h34v08", "h34v09", "h34v10", "h35v08", "h35v09", "h35v10"
)