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_
ga.metadata <- as.data.table(ga.metadata)
ga.metadata <- ga.metadata[, lapply(.SD, as.characterunlist)]</nowiki>}}
Переменная <code>ga.metadata</code> содержит следующую информацию:
