Zettelkasten

top

remove.empty.lists <- function(src.list) {
  dest.list <- list()
  for (name in names(src.list)) {
    if (length(src.list[[name]]) > 0) {
      dest.list[[name]] <- src.list[[name]]
    }
  }
  dest.list
}