get_github_file_commit_date

get_github_file_commit_date <- function(repo, filepath){
  url <- paste0("https://api.github.com/repos/", 
                repo,  
                "/commits?path=",
                gsub("/", "/%2F", filepath),
                "&page=1&per_page=1")
  
  request <-  httr::GET(url, httr::user_agent("httr"))
  content <- httr::content(request)
  content[[1]]$commit$committer$date
}

get_local_file_date <- function(filepath){
  file.info(filepath)$ctime
}

github_file_commit <- get_github_file_commit_date("ishaberry/covid19canada", 
                                                  "timeseries_hr/cases_timeseries_hr.csv")
local_file_time <- get_local_file_date("~/git/adhoc_prive/covid19_PNG/canada_cases.png")
timediff <- local_file_time - lubridate::ymd_hms(github_file_commit)
print(timediff)
# Time difference of 16.60829 mins