Skip to content

Instantly share code, notes, and snippets.

@randyzwitch
Created June 26, 2014 15:10
Show Gist options
  • Select an option

  • Save randyzwitch/97588898e5eccacd79dd to your computer and use it in GitHub Desktop.

Select an option

Save randyzwitch/97588898e5eccacd79dd to your computer and use it in GitHub Desktop.
Final parsing solution
#Separate breakdown list and original data frame into different objects
df <- ex_df$report$data
breakdown_list <- df$breakdown
df$breakdown <- NULL
#Loop over df and accumulate results
parsed_df <- data.frame()
for(i in 1:nrow(df)){
right_df <- breakdown_list[[i]]
right_df <- rename(right_df, replace=c("name" = report_raw$report$elements$id[2]))
temp <- cbind(df[i,],right_df, row.names = NULL)
parsed_df <- rbind(parsed_df, temp)
}
parsed_df <- rename(parsed_df, replace=c("counts" = report_raw$report$metrics$id))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment