Maintenance scheduled for Thursday, October 22nd at 15:00 MDT. Expected downtime <1 hour.

Commit aa9aef22 authored by Blodgett, David L.'s avatar Blodgett, David L.

remove symlink

parent eb649d4b
../../../inst/extdata/fixture_wkt.json
\ No newline at end of file
......@@ -54,7 +54,7 @@ checkAllPoly <- function(polygonData, node_count, part_node_count = NULL, part_t
}
get_fixture_data <- function(geom_type) {
fixtureData <- jsonlite::fromJSON("data/fixture_wkt.json")
fixtureData <- jsonlite::fromJSON(txt = system.file('extdata/fixture_wkt.json', package = 'ncdfgeom'))
return(sf::st_sf(geom = sf::st_as_sfc(fixtureData[["2d"]][geom_type]),
crs = "+init=epsg:4326"))
......
......@@ -3,7 +3,7 @@ context("geom_examples.md")
test_that("create geom_examples.md", {
geom_examples <- "data/geom_examples.md"
fixtureData <- jsonlite::fromJSON("data/fixture_wkt.json")
fixtureData <- jsonlite::fromJSON(system.file('extdata/fixture_wkt.json', package = 'ncdfgeom'))
# "multipoint", "MultiPoint (2D)",
order<-c("point", "linestring", "polygon",
"multilinestring", "multipolygon",
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment