definitelysean

appendCeldaList = function(celda.list.one, celda.list.two) {
  if (!is(celda.list.one, "celda_list") || !is(celda.list.two, "celda_list")) {
    stop("Both arguments must be of class \"celda_list\"")
  }
  if (celda.list.one$content.type != celda.list.two$content.type) {
    stop("Both arguments must have same content.type attribute")
  }
  if (celda.list.one$count.checksum != celda.list.two$count.checksum) {
    warning("count.checksum property on arguments do not match. Using checksum from first list.")
  }