preview private github repo

server.R

library(httpuv)
library(httr)
library(stringr)

app <- list(
    call = function(req) {
        paths <- str_split(req$PATH_INFO, "/")[[1]]
        owner <- paths[2]
        repo <- paths[3]
        path <- str_c(paths[4:length(paths)])

        r <- GET(
          str_glue("https://raw.githubusercontent.com/{owner}/{repo}/master/{path}"),
          add_headers(Authorization = paste("token", Sys.getenv("GITHUB_PAT")))
        )
        list(
            status = 200L,
            headers = list(
                "Content-Type" = "text/html"
            ),
            body = content(r, as = "text")
        )
    }
)

server <- runServer("0.0.0.0", 9454, app)

Visit the page using http://localhost:9454/{owner}/{repo}/{file}