3482
правки
Изменения
м
Нет описания правки
library(data.table)
ga.metadata_url <- "https://www.googleapis.com/analytics/v3/metadata/ga/columns?pp=1"
ga.metadata_list <- fromJSON(getURL(ga.metadata_url))
ga.metadata_ids <- vapply(ga.metadata_list$items, "[[", "id", FUN.VALUE = character(1))