R/updateGenerator.R

In USDA-ERS/MTED-TabloToR:

generateUpdates = function(statements) {
  toRet = list('"/" <- function(x,y) ifelse(y==0,0,base:::"/"(x,y))
')
  for (s in statements) {
    if (any(grepl('\\(initial\\)', s$parsed$elements, ignore.case = T)) == F) {
      toRet[[length(toRet) + 1]] = processUpdateStatement(s)
    }
  }

  f = str2lang('function(data)return(data)')
  w = str2lang('within(data,{})')
  for (tr in toRet) {
    w[[3]][[length(w[[3]]) + 1]] = str2lang(paste(tr, collapse = ''))
  }

  f[[3]][[2]] = w

  return(eval(f))
}