vignettes/files/examples/github.R

In plumber2: Easy and Powerful Web Servers

#* Get information about the currently available
#* @get /version
#* @serializer json
function() {
  desc <- read.dcf(
    system.file("DESCRIPTION", package="plumber2")
  )
  resp <- list(
    version = unname(desc[1,"Version"]),
    built = unname(desc[1,"Built"])
  )

  if ("GithubSHA1" %in% colnames(desc)) {
    resp["sha1"] <- unname(desc[1,"GithubSHA1"])
  }

  resp
}

#* Give GitHub Webhook a way to alert us about new pushes to the new plumber
#* repo. See https://developer.github.com/webhooks/
#* @post /update
function(request) {

  # Verify the provided signature to confirm this
  # request actually came from GitHub.

  # I stored my secret in a file at ~/.github
  secret <- readLines("~/.github")[1]
  hm <- digest::hmac(secret, request$body, algo="sha1")
  hm <- paste0("sha1=", hm)
  if (!identical(hm, request$HTTP_X_HUB_SIGNATURE)) {
    abort_bad_request("invalid GitHub signature.")
  }

  # Install new package
  pak::pak("posit-dev/plumber2")

  Next
}