Pull out dates from GH data

[cansavvy]

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:

{
  "count": 271,
  "uniques": 28,
  "views": [
    {
      "timestamp": "2024-01-05T00:00:00Z",
      "count": 30,
      "uniques": 16
    },
    {
      "timestamp": "2024-01-06T00:00:00Z",
      "count": 1,
      "uniques": 1
    },
    {
      "timestamp": "2024-01-07T00:00:00Z",
      "count": 2,
      "uniques": 2
    },
    {
      "timestamp": "2024-01-08T00:00:00Z",
      "count": 1,
      "uniques": 1
    },
    {
      "timestamp": "2024-01-09T00:00:00Z",
      "count": 5,
      "uniques": 2
    },
...

[carriewright11]

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:

[carriewright11]

still figuring out how to add this to your code...

[cansavvy]

No worries! I can handle that part! #Teamwork