R/bigQueryAccess.R

In DataBiosphere/Ronaldo: Helper package for Leonardo

#' Function that returns the key for the user's pet service account
#' @export
#' @param authEnv the environment to auth against
#' @return the user's pet service account key
getServiceAccountKey <-  function(authEnv = "prod") {
  token <-
    system("gcloud auth application-default print-access-token",
           intern = TRUE)
  bearer <- sprintf("Bearer %s", token)
  project <- Sys.getenv("GOOGLE_PROJECT")
  samHost <-
    sprintf("sam.dsde-%s.broadinstitute.org", authEnv)
  samUrl <-
    sprintf("https://%s/api/google/user/petServiceAccount/%s/key",
            samHost,
            project)
  json <- httr::GET(url = samUrl,
                    httr::content_type_json(),
                    httr::add_headers(Authorization = bearer))
  key <- httr::content(json, "text", encoding = "UTF-8")
  key
}