tests/testthat/test_geom_examples.R

In ncdfgeom: 'NetCDF' Geometry and Time Series

context("geom_examples.md")

test_that("create geom_examples.md", {
  testthat::skip_on_ci()
  testthat::skip_if(Sys.which("ncdump") == "", "ncdump is not on PATH")
  
  geom_examples <- list.files(pattern = "geom_examples.md", full.names = TRUE, recursive = TRUE)
  
  fixtureData <- jsonlite::fromJSON(system.file('extdata/fixture_wkt.json', package = 'ncdfgeom'))
  # "multipoint", "MultiPoint (2D)", 
  order<-c("point", "linestring", "polygon",
           "multilinestring", "multipolygon",
           "polygon_hole", "multipolygon_hole", "multipolygons_holes")
  
  namesstr<-c("Point (2D)", "LineString (2D)", "Polygon (2D)",
              "MultiLineString (2D)", "MultiPolygon (2D)",
              "Polygon with One Interior Ring (2D)", "MultiPolygon with One Interior Ring (2D)",
              "Multiple MultiPolygons with Interior Rings (2D)")
  
  sink(geom_examples)
  on.exit(if(sink.number() > 0) sink(NULL), add = TRUE)
  
  cat(paste("# Examples - Contiguous Ragged Arrays  \n\n"))
  
  for(geom in seq_along(namesstr)) {
    cat(paste0("## ", namesstr[geom],"  \nWell Known Text (WKT): ```",fixtureData[["2d"]][order[geom]]),"```  \n")
    fileName<-paste0("sample_",order[geom],".nc")
    write_geometry(fileName, get_fixture_data(order[geom]))
    cat("Common Data Language (CDL):\n```  \n")
    t <- system(paste0("ncdump ", fileName), intern = TRUE)
    cat(t, sep = "\n")
    cat("  \n```  \n\n")
    unlink(fileName)
  }
  
  sink(NULL)
  
  testthat::skip_on_cran()
  expect_true(file.exists(geom_examples))
})