3482
правки
Изменения
м
gaattrs.metadata values <- cbind(id, sapply(attrs.names, function(name) lapplysapply(attrs, "[[", name)))ga.metadata[sapply(ga.metadata, is.null)] <- NAga.metadata <- as.data.table(ga.metadata)ga.metadata <- ga.metadata[id, lapply(attrs.SD, unlistvalues)]</nowiki>}}
Нет описания правки
attrs <- fromJSON(getURL(paste0(url, "/attributes")))$items
id <- lapplysapply(id, "[[", 1)attrs <- lapplysapply(attrs, "function(x) unlist(x[[", 1]]))
attrs.names <- unique(unlist(lapply(attrs, names)))
Переменная <code>ga.metadata</code> содержит следующую информацию:
