R/getNWM_point.R

In mikejohnson51/NWM: Provides access to the NOAA National Water Model output

getNWM_point = function(AOI = NULL,
                        nhd = NULL,
                        comids = NULL,
                        type,
                        filelist,
                        param){


  if(type == "channel"){

    for(i in seq_along(param)){

      vals = getChannel(AOI = AOI$AOI,
                        nhd = nhd,
                        comids = comids,
                        filelist = filelist,
                        param = param[i])

      AOI[[param[i]]] = vals
    }
  }

  if(type == "reservoir"){

    for(i in seq_along(param)){

      vals = getReservoir(AOI = AOI$AOI,
                        filelist = filelist,
                        param = param[i])

      AOI[[param[i]]] = vals
    }
  }

  return(AOI)
}