R/extractXLSX_modis.R

In mikejohnson51/ET:

#' Extract data from MODIS excel files
#'
#' @param dir (character) the path to the XLSX files
#' @param column (character) what column/statistic do you want to extract?
#'
#' @return a data.frame
#' @export
#'
#' @examples

extractXLSX_modis = function(dir = NULL, column = "MAX" ){

  files = list.files(dir, full.names = T, pattern = ".xl*")
  names = substr(list.files(dir), 1, 6)

  vals = col_lc

  for(i in seq_along(files)){

    d1 = read_excel(files[i])
    max = data.frame(d1[,"VALUE"], d1[,column]*.1)
    colnames(max) = c("code", names[i])
    vals = merge(vals, max, by= 'code', all.x = T)
  }


  vals =  vals[complete.cases(vals), ]


  return(vals)

}