tests/testthat/test_gcloud.R

check_gcloud_install <- function() {
    code <- suppressWarning(
        system("gcloud --version", ignore.stderr = TRUE, ignore.stdout = TRUE)
    )

    if (code != 0) {
        skip("'gcloud' SDK is not installed on this node.") 
    }
}


check_gcloud_install <- function() {
    code <- suppressWarning(
        system("gsutil --version", ignore.stderr = TRUE, ignore.stdout = TRUE)
    )

    if (code != 0) {
        skip("'gsutil' is not installed on this node.") 
    }
}
Bioconductor/BiocKubeInstall documentation built on Jan. 26, 2023, 12:35 a.m.