3482
правки
Изменения
м
Нет описания правки
attrs.names <- unique(unlist(lapply(attrs, names)))
ga.metadata <- cbind(id, sapply(attrs.names, function(name) lapply(attrs, "[[", name)))
ga.metadata[sapply(ga.metadata, is.null)] <- NA_character_NA
ga.metadata <- as.data.table(ga.metadata)
ga.metadata <- ga.metadata[, lapply(.SD, unlist)]</nowiki>}}
