candidate for #322

Author: MarkEdmondson1234

NEWS.md

@@ -1,6 +1,7 @@
 # 0.8.0.9000
 
 * Allow authentication with service JSON keys without needing to change default client.id (#324 - thanks @adamribaudo)
+* Fix GA Adwords list parsing (#322 - thanks @millett-a)
 
 # googleAnalyticsR 0.8.0
 

R/adwords.R

@@ -57,14 +57,19 @@ ga_adwords_list <- function(accountId,
 #' @noRd
 #' @import assertthat
 #' @importFrom dplyr bind_rows select
+#' @importFrom purrr as_vector
 parse_ga_adwords_list <- function(x){
 
   aaa <- Reduce(bind_rows, x$items$adWordsAccounts)
   o <- x %>% 
-    management_api_parsing("analytics#entityAdWordsLinks") %>% 
-    cbind(aaa) %>% 
+    management_api_parsing("analytics#entityAdWordsLinks")
+    
+  n.times <- as_vector(lapply(x$items$adWordsAccounts, nrow))
+  o <- o[rep(seq_len(nrow(o)), n.times),] %>%
+    cbind(aaa) %>%
     select(-adWordsAccounts, -entity.webPropertyRef.kind, -entity.webPropertyRef.href, -kind)
 
+  
   if(is.null(o)){
     return(data.frame())
   }