tests/tinytest.R

In valh: Interface Between R and the OpenStreetMap-Based Routing Service Valhalla

if (requireNamespace("tinytest", quietly = TRUE)) {
  valh.server <- Sys.getenv("VALHALLA_CI")
  demo_server <- ifelse(valh.server == '', FALSE, TRUE)
  suppressPackageStartupMessages(library(sf))
  x_sf <- st_read(system.file("gpkg/apotheke.gpkg", package = "valh"), quiet = TRUE)
  x_df <- read.csv(system.file("csv/apotheke.csv", package = "valh"))
  x_v <- c(13.26403, 52.48707)
  x_df <- x_df[, -1]
  x_sfc <- st_geometry(x_sf)
  x_sfc_l <- st_cast(x_sfc, "LINESTRING")
  x_m <- as.matrix(x_df)
  row.names(x_sf) <- paste0("sf", row.names(x_sf))
  tinytest::test_package(pkgname = "valh")
}