Изменения

library(jsonlite)# Request URLurl <- "https://www.googleapis.com/analytics/v3/metadata/ga/columns?fields=items"ids # Get JSON datadata_json <- jsonlite::fromJSON(paste0(url)# Subsettingsdata_r <- .subset2(data_json, "items")id <- .subset2(data_r, "/id")attributes <- .subset2(data_r, "attributes")$itemsattrs # Convert column typesattributes <- fromJSONtransform(paste0attributes, allowedInSegments = as.logical(urlmatch(allowedInSegments, table = c(NA, "/attributestrue"))$items- 1), minTemplateIndex = as.numeric(minTemplateIndex), maxTemplateIndex = as.numeric(maxTemplateIndex), premiumMinTemplateIndex = as.numeric(premiumMinTemplateIndex), premiumMaxTemplateIndex = as.numeric(premiumMaxTemplateIndex))# Create data.framega.metadata <- cbind(idsid, attrs$attributes, stringsAsFactors = FALSE)</nowiki>}}