3482
правки
Изменения
м
ga.metadata_url url <- "https://www.googleapis.com/analytics/v3/metadata/ga/columns?fields=items"ga.metadata_list ids <- fromJSON(getURL(ga.metadata_urlpaste0(url, "/id")))$itemsga.metadata_ids attributes <- vapplyfromJSON(ga.metadata_list$itemsgetURL(paste0(url, "[[/attributes", "id", FUN.VALUE = character(1)))$items
ga.metadata_attr ids <- unlist(ids)attrs <- lapply(ga.metadata_list$itemsattrs, "[[", "attributes")
ga.metadata_attrattrs.names <- unique(lapply(ga.metadata_attrattrs, names))ga.metadata_attrattrs.names <- ga.metadata_attrattrs.names[[which.min(sapplyvapply(ga.metadata_attrattrs.names, length, FUN.VALUE = integer(1)))]]
ga.metadata_attrattrs.values <- lapply(ga.metadata_attr, "[", ga.metadata_attr.names)
Нет описания правки
library(data.table)
ga.metadata_data metadata <- data.table(id = ga.metadata_idsids, rbindlist(ga.metadata_attrattrs.values))</nowiki>}}
Переменная <code>ga.metadata_data</code> содержит следующую информацию:
В качестве примера использования таблицы приведём вывод всех ID параметров (метрик), имеющих актуальный статус (не устаревшие) и относящиеся к группе "User":
{{r-code|code=<nowiki>> ga.metadata_datametadata[status != "DEPRECATED" & type == "METRIC" & group == "User", id]
[1] "ga:users" "ga:newUsers" "ga:percentNewSessions"</nowiki>}}
{{r-code|code=<nowiki>cat("{| class=\"wide wikitable sortable\"", "\n",
"! ", "id !! ", paste(ga.metadata_attrattrs.names, collapse = " !! "), paste("\n|-\n| ", apply(ga.metadata_datametadata, 1, paste, collapse = " || ")),
"\n|}", sep = "")</nowiki>}}
