3482
правки
Изменения
м
id <- sapply(id, "[[", 1)attrs <- sapply(attrs, function(x) unlist(x[[1]]))attrs.names <- unique(unlist(lapply(attrs, names)))attrs <- sapply(attrs.names, function(name) sapply(attrs, "[", name))ga.metadata <- data.tableframe(id, attrs$attributes)</nowiki>}}
Нет описания правки
{{r-code|code=<nowiki>library(RCurl)
library(rjson)library(data.tablejsonlite)
url <- "https://www.googleapis.com/analytics/v3/metadata/ga/columns?fields=items"
id <- fromJSON(getURL(paste0(url, "/id")))$items
attrs <- fromJSON(getURL(paste0(url, "/attributes")))$items
Переменная <code>ga.metadata</code> содержит следующую информацию:
В качестве примера использования таблицы приведём вывод всех ID параметров (метрик), имеющих актуальный статус (не устаревшие) и относящиеся к группе "User":
{{r-code|code=<nowiki>> subset(ga.metadata[, status != "DEPRECATED" & type == "METRIC" & group == "User", id])[1] " id8 ga:users" "10 ga:newUsers" "12 ga:percentNewSessions"</nowiki>}}
Подробнее о синтаксисе при работе объектами класса <code>data.table</code> смотрите соответствующую документацию к пакету {{r-package|data.table}}.
