https://github.com/cran/pkgdown
Tip revision: 734352c469f19cb270b01aa86f91117117e69d29 authored by Hadley Wickham on 12 September 2020, 04:50:26 UTC
version 1.6.1
version 1.6.1
Tip revision: 734352c
build-github.R
build_github_pages <- function(pkg = ".") {
rule("Extra files for GitHub pages")
pkg <- as_pkgdown(pkg)
# Add .nojekyll since site is static HTML
write_if_different(pkg, "", ".nojekyll", check = FALSE)
# Add CNAME if url present
cname <- cname_url(pkg$meta$url)
if (is.null(cname)) {
return(invisible())
}
write_if_different(pkg, cname, "CNAME", check = FALSE)
invisible()
}
cname_url <- function(url) {
if (is.null(url))
return(NULL)
pieces <- xml2::url_parse(url)
if (!pieces$path %in% c("", "/"))
return(NULL)
pieces$server
}