Closed cansavvy closed 7 months ago
I came up with something like this:
get_deeper_gh_stats <- function(data, column){
unlisted_data <- data %>% map(~ unlist(.))
new_data <- unlisted_data[column] %>%
bind_rows() %>% select(-c(count, uniques)) %>%
matrix( ncol = 3, byrow = TRUE) %>%
as.data.frame()
colnames(new_data)<- c("timestamp", "count", "uniques")
return(new_data)}
clones_data <- get_deeper_gh_stats(ari_raw_data, column = "clones")
views_data <- get_deeper_gh_stats(ari_raw_data, column = "views")
Which creates:
still figuring out how to add this to your code...
No worries! I can handle that part! #Teamwork
We'll need to do something like this:
unlist(purrr::map(repo_list, ~ .x$timestamp))
and make date ranges for the github metrics collected by
get_github_metrics()
Because the data generally looks like this: