Could use_travis() turn on repo automatically?

[hadley]

via github authentication from GITHUB_PAT

[hadley]

Reading https://docs.travis-ci.com/api#with-a-github-token suggests this code should work:

  req <- httr::POST("https://api.travis-ci.org/auth/github", 
    body = list(github_token = github_pat()),
    httr::accept("application/vnd.travis-ci.2+json"),
    httr::verbose(),
    encode = "json"
  )
  httr::content(req, "text")

But it doesn't, and the error recommends contacting support. Since travis support never replies with anything useful, this doesn't seem worth pursuing at this time.

[hadley]

Critical bit seems to be using the same user agent as their example:

req <- httr::POST("https://api.travis-ci.org/auth/github", 
                  body = list(github_token = github_pat()),
                  httr::accept("application/vnd.travis-ci.2+json"),
                  httr::verbose(),
                  httr::user_agent("MyClient/1.0.0"),
                  encode = "json"
)
httr::content(req)

[hadley]

Complete process:

library(httr)

# Get auth token using Github PAT -----------------------------------------
travis_token <- function() {
  req <- POST("https://api.travis-ci.org/auth/github", 
    body = list(github_token = github_pat()),
    accept("application/vnd.travis-ci.2+json"),
    user_agent("MyClient/1.0.0"),
    encode = "json"
  )
  stop_for_status(req)
  token <- httr::content(req)$access_token

  add_headers(Authorization = paste0("token ", token))
}
token <- travis_token()

# Determine repo id -------------------------------------------------------
repos <- content(GET("https://api.travis-ci.org/repos", token, query = list(slug = "hadley/monads")))
id <- repos[[1]]$id

# Set hook to active ------------------------------------------------------
req <- PUT("https://api.travis-ci.org/hooks", 
  body = list(hook = list(id = id, active = TRUE)), 
  encode = "json", 
  token
)
stop_for_status(req)
content(req)

# library(purrr)
# hooks <- content(GET("https://api.travis-ci.org/hooks", token))
# hooks %>% map_chr("uid")
# hooks %>% keep(~.$name == "monads") %>% str()

[lock]

This old issue has been automatically locked. If you believe you have found a related problem, please file a new issue (with reprex) and link to this issue. https://reprex.tidyverse.org/