3482
правки
Изменения
м
attributes attrs <- fromJSON(getURL(paste0(url, "/attributes")))$items
Нет описания правки
url <- "https://www.googleapis.com/analytics/v3/metadata/ga/columns?fields=items"
ids <- fromJSON(getURL(paste0(url, "/id")))$items
ids <- unlist(ids)
attrs.names <- attrs.names[[which.min(vapply(attrs.names, length, FUN.VALUE = integer(1)))]]
attrs.values <- lapply(ga.metadata_attrattrs, "[", ga.metadata_attrattrs.names)
ga.metadata <- data.table(id = ids, rbindlist(attrs.values))</nowiki>}}
