R/list_errors.R

In googleErrorReportingR: Send Error Reports to the Google Error Reporting Service API

#' Get list of errors from Google Error Reporting
#'
#' @param project_id the project ID of your project on GCP
#' @param api_key an API key with permissions to write to Google Error Reporting
#'
#' @return No return, we focus on side effect
list_errors <- function(project_id,
                         api_key) {


  #TODO: This function has yet to be implemented in full.
  # Authenticating with OAuth 2.0 should be possible with:
  # library(googleAuthR)
  # options(googleAuthR.scopes.selected = "https://www.googleapis.com/auth/cloud-platform")


  base_url <- "https://clouderrorreporting.googleapis.com/v1beta1/"
  project_name <- paste0("projects/", project_id)
  endpoint <- "/events?key="

  url <- paste0(base_url, project_name, endpoint)

  httr::GET(url)
}