on_codecov <- function() {
identical(Sys.getenv("R_COVR"), "true")
}
on_ci <- function() {
isTRUE(as.logical(Sys.getenv("CI")))
}
mpi_toolchain_present <- function() {
tryCatch(
wsl_compatible_run(command = "mpicxx", args = "--version")$status == 0 &&
wsl_compatible_run(command = "mpiexec", args = "--version")$status == 0,
error=function(cond) {
FALSE
}
)
}
delete_extensions <- function() {
if (os_is_windows()) {
c(".exe", ".o", ".hpp")
} else {
c("", ".o",".hpp")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.