build_icon <- function(sinfo){
icon <- NULL
if (is_travis()) {
icon <- travis_icon()
}
if (is_gh()) {
icon <- gh_icon()
}
if(!is.null(icon)){
sinfo$Icon <- ""
sinfo$Icon[sinfo$Field == "Platform"] <- icon
names(sinfo)[3] <- ""
}
sinfo
}
travis_icon <- function() {
JOB_WEB_URL <- Sys.getenv("TRAVIS_JOB_WEB_URL")
sprintf(
'<a href="%s" target="_blank"><span title="Built on Travis">![](%s)</span></a>',
JOB_WEB_URL,
"https://github.com/metrumresearchgroup/covrpage/blob/master/inst/logo/travis.png?raw=true"
)
}
gh_icon <- function() {
JOB_WEB_URL <- sprintf('https://github.com/%s/commit/%s/checks',
Sys.getenv('GITHUB_REPOSITORY'),
system('git rev-parse HEAD',intern = TRUE)
)
sprintf(
'<a href="%s" target="_blank"><span title="Built on Github Actions">![](%s)</span></a>',
JOB_WEB_URL,
"https://github.com/metrumresearchgroup/covrpage/blob/actions/inst/logo/gh.png?raw=true"
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.