tests/testthat/helper.R

In rgrass: Interface Between 'GRASS' Geographical Information System and 'R'

download_nc_basic <- function() {
  tmpdir <- tempdir()

  if (!file.exists(file.path(tmpdir, "nc_basic_spm_grass7.zip"))) {
    base_url <- "https://grass.osgeo.org/sampledata"
    path_url <- "north_carolina"
    file_url <- "nc_basic_spm_grass7.zip"

    download.file(
      paste(base_url, path_url, file_url, sep = "/"),
      file.path(tmpdir, "nc_basic_spm_grass7.zip")
    )

    unzip(
      file.path(tmpdir, "nc_basic_spm_grass7.zip"),
      exdir = file.path(tmpdir, "grassdb")
    )
    unlink(file.path(tmpdir, "nc_basic_spm_grass7.zip"))
  }

  dataset <- list(
    gisDbase = file.path(tmpdir, "grassdb"),
    location = "nc_basic_spm_grass7"
  )

  return(dataset)
}

get_gisbase <- function() {
  if (Sys.info()["sysname"] == "Linux") {
    gisBase <- try(system2("grass", "--config path", stdout = TRUE), silent = TRUE)
  } else {
    gisBase <- Sys.getenv("GRASS_INSTALLATION")
  }

  if (inherits(gisBase, "try-error") | gisBase == "") {
    message("GRASS GIS not found on PATH")
    return(NULL)
  }
  return(gisBase)
}