Изменения

ids <- lapply(ids, "[[", "id"1)attrs <- lapply(attrs, "[[", "attributes"1) attrs.names <- unique(unlist(lapply(attrs, names)))attrsmetadata.names list <- attrs.names[[which.minappend(sapplylist(ids), lapply(attrs.names, lengthfunction(name))]] attrs.values <- lapply(attrs, "[[", attrs.namesname))) ga.metadata <- do.call(data.table, metadata.list)setnames(id = idsga.metadata, rbindlistc("id", attrs.valuesnames))</nowiki>}}