R/appendList.r

#' appendList
#'
#' @description Utility function to append element to a list.
#'
#' @param x List to be updates.
#' @param val Data updates.
#
#' @return  Return   R list object.
#' @author  Istituto di Biometeorologia Firenze Italy  Alfonso crisci \email{a.crisci@@ibimet.cnr.it}.
#' @keywords  weather, data,opendata,regione toscana
#'
#'
#'
#' @export



appendlist <- function (x, val) 
{
  stopifnot(is.list(x), is.list(val))
  xnames <- names(x)
  for (v in names(val)) {
    x[[v]] <- if (v %in% xnames && is.list(x[[v]]) && is.list(val[[v]])) 
      appendList(x[[v]], val[[v]])
    else c(x[[v]], val[[v]])
  }
  x
}
alfcrisci/rWeatherITA documentation built on May 10, 2019, 9:16 a.m.