R/utils.R

In datastorm-open/vis3D: 3D visualization using vis.js library

mergeLists <- function (base_list, overlay_list, recursive = TRUE) {
  if (length(base_list) == 0)
    overlay_list
  else if (length(overlay_list) == 0)
    base_list
  else {
    merged_list <- base_list
    for (name in names(overlay_list)) {
      base <- base_list[[name]]
      overlay <- overlay_list[[name]]
      if (is.list(base) && is.list(overlay) && recursive)
        merged_list[[name]] <- mergeLists(base, overlay)
      else {
        merged_list[[name]] <- NULL
        merged_list <- append(merged_list,
                              overlay_list[which(names(overlay_list) %in% name)])
      }
    }
    merged_list
  }
}

dataToJSON <- function(obj) {
  value = lapply(1:nrow(obj), function(i) {
    res <- as.list(obj[i,, drop = FALSE])
    return(res)
  })

  names(value) <- NULL
  return(value)

}