Running ‘testthat.R’ [2s/244s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > test_check('geoknife')
  Loading required package: geoknife
  
  Attaching package: 'geoknife'
  
  The following object is masked from 'package:stats':
  
      start
  
  The following object is masked from 'package:graphics':
  
      title
  
  The following object is masked from 'package:base':
  
      url
  
  ── 1. Error: algorithm version works (@test-geoknife_setters.R#80)  ────────────
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: geoknife(stencil = c(-89, 42), fabric = fabric) at testthat/test-geoknife_setters.R:80
  2: as(knife, Class = "webprocess")
  3: .class1(object)
  4: webprocess(...)
  5: webprocess(...)
  6: new("webprocess", ...)
  7: initialize(value, ...)
  8: initialize(value, ...)
  9: .local(.Object, ...)
  10: defaultProcessInputs(algorithm = .Object@algorithm[[1]], .Object@url, .Object@version)
  11: gGET(wps_url, query = list(service = "WPS", version = wps_version, request = "DescribeProcess", 
         identifier = algorithm))
  12: retryVERB(httr::GET, url, ...)
  13: stop(response$message, call. = FALSE)
  
  ── 2. Error: (unknown) (@test-geoknife_utils.R#51)  ────────────────────────────
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: geoknife(c(-89, 43), fabric, wait = TRUE) at testthat/test-geoknife_utils.R:51
  2: as(knife, Class = "webprocess")
  3: .class1(object)
  4: webprocess(...)
  5: webprocess(...)
  6: new("webprocess", ...)
  7: initialize(value, ...)
  8: initialize(value, ...)
  9: .local(.Object, ...)
  10: defaultProcessInputs(algorithm = .Object@algorithm[[1]], .Object@url, .Object@version)
  11: gGET(wps_url, query = list(service = "WPS", version = wps_version, request = "DescribeProcess", 
         identifier = algorithm))
  12: retryVERB(httr::GET, url, ...)
  13: stop(response$message, call. = FALSE)
  
  ── 3. Error: multi-args work with shorthand knife (@test-knife_shorthand.R#20)  
  Timeout was reached: Connection timed out after 10000 milliseconds
  1: webprocess("subset", OUTPUT_TYPE = "geotiff") at testthat/test-knife_shorthand.R:20
  2: webprocess("subset", OUTPUT_TYPE = "geotiff")
  3: as(.Object, "webprocess")
  4: asMethod(object)
  5: do.call(webprocess, args = knives[[from]])
  6: (new("nonstandardGenericFunction", .Data = function (.Object, ...) 
     {
         standardGeneric("webprocess")
     }, generic = structure("webprocess", package = "geoknife"), package = "geoknife", 
         group = list(), valueClass = character(0), signature = ".Object", default = NULL, 
         skeleton = (function (.Object, ...) 
         stop("invalid call in method dispatch to 'webprocess' (no default method)", domain = NA))(.Object, 
             ...)))(algorithm = list(`OPeNDAP Subset` = "gov.usgs.cida.gdp.wps.algorithm.FeatureCoverageOPeNDAPIntersectionAlgorithm"))
  7: (new("nonstandardGenericFunction", .Data = function (.Object, ...) 
     {
         standardGeneric("webprocess")
     }, generic = structure("webprocess", package = "geoknife"), package = "geoknife", 
         group = list(), valueClass = character(0), signature = ".Object", default = NULL, 
         skeleton = (function (.Object, ...) 
         stop("invalid call in method dispatch to 'webprocess' (no default method)", domain = NA))(.Object, 
             ...)))(algorithm = list(`OPeNDAP Subset` = "gov.usgs.cida.gdp.wps.algorithm.FeatureCoverageOPeNDAPIntersectionAlgorithm"))
  8: new("webprocess", ...)
  9: initialize(value, ...)
  10: initialize(value, ...)
  11: .local(.Object, ...)
  12: defaultProcessInputs(algorithm = .Object@algorithm[[1]], .Object@url, .Object@version)
  13: gGET(wps_url, query = list(service = "WPS", version = wps_version, request = "DescribeProcess", 
         identifier = algorithm))
  14: retryVERB(httr::GET, url, ...)
  15: stop(response$message, call. = FALSE)
  
  ── 4. Error: query values returns only unique (@test-query_webgeom.R#32)  ──────
  Timeout was reached: Connection timed out after 10000 milliseconds
  1: expect_false(any(duplicated(query(webgeom(geom = "sample:Counties", attribute = "STATE_FIPS"), 
         "values")))) at testthat/test-query_webgeom.R:32
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: duplicated(query(webgeom(geom = "sample:Counties", attribute = "STATE_FIPS"), "values"))
  5: query(webgeom(geom = "sample:Counties", attribute = "STATE_FIPS"), "values")
  6: query(webgeom(geom = "sample:Counties", attribute = "STATE_FIPS"), "values")
  7: gcontent(gGET(url))
  8: xml2::read_xml(iconv(readBin(response$content, character()), from = "UTF-8", to = "UTF-8"))
  9: iconv(readBin(response$content, character()), from = "UTF-8", to = "UTF-8")
  10: readBin(response$content, character())
  11: gGET(url)
  12: retryVERB(httr::GET, url, ...)
  13: stop(response$message, call. = FALSE)
  
  ── 5. Error: given a geojob, we can create a webprocess (@test-webprocess_object
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: webprocess(geojob) at testthat/test-webprocess_object.R:66
  2: webprocess(geojob)
  3: as(.Object, "webprocess")
  4: asMethod(object)
  5: webprocess(url = from@url, version = from@version)
  6: webprocess(url = from@url, version = from@version)
  7: new("webprocess", ...)
  8: initialize(value, ...)
  9: initialize(value, ...)
  10: .local(.Object, ...)
  11: defaultProcessInputs(algorithm = .Object@algorithm[[1]], .Object@url, .Object@version)
  12: gGET(wps_url, query = list(service = "WPS", version = wps_version, request = "DescribeProcess", 
         identifier = algorithm))
  13: retryVERB(httr::GET, url, ...)
  14: stop(response$message, call. = FALSE)
  
  ── 6. Error: basic XML creation works (@test-whisker_templating.R#18)  ─────────
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: XML(wg, wd, wp) at testthat/test-whisker_templating.R:18
  2: XML(wg, wd, wp)
  3: .setProcessInputs(webprocess = knife, stencil = stencil, fabric = fabric)
  4: do.call(fun, list(...))
  5: .DATASET_URI(stencil = new("webgeom", url = "https://cida.usgs.gov/gdp/geoserver/wfs", 
         geom = "sample:CONUS_states", attribute = "STATE", values = "Wisconsin", version = "1.1.0", 
         GML_IDs = "CONUS_states.48", WFS_NAMESPACE = "http://www.opengis.net/wfs", GML_NAMESPACE = "http://www.opengis.net/gml", 
         GML_SCHEMA_LOCATION = "http://schemas.opengis.net/gml/3.1.1/base/feature.xsd"), 
         fabric = new("webdata", times = structure(c(978307200, 1012867200), class = c("POSIXct", 
         "POSIXt"), tzone = "UTC"), url = "https://cida.usgs.gov/thredds/dodsC/prism_v2", 
             variables = "ppt", dataList = "gov.usgs.cida.gdp.wps.algorithm.discovery.ListOpendapGrids", 
             timeList = "gov.usgs.cida.gdp.wps.algorithm.discovery.GetGridTimeRange"))
  6: dodsReplace(url(fabric))
  7: httr::headers(httr::HEAD(uri))
  8: httr::HEAD(uri)
  9: request_perform(req, hu$handle$handle)
  10: request_fetch(req$output, req$url, handle)
  11: request_fetch.write_memory(req$output, req$url, handle)
  12: curl::curl_fetch_memory(url, handle = handle)
  
  ── 7. Error: Execute XML creation with two points works (@test-whisker_templatin
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: XML(wg, wd, wp) at testthat/test-whisker_templating.R:31
  2: XML(wg, wd, wp)
  3: .setProcessInputs(webprocess = knife, stencil = stencil, fabric = fabric)
  4: do.call(fun, list(...))
  5: .DATASET_URI(stencil = new("simplegeom", sp = new("SpatialPolygons", polygons = list(
         new("Polygons", Polygons = list(new("Polygon", labpt = c(-48.6, 45.2), area = 2.00000000013279e-08, 
             hole = FALSE, ringDir = 1L, coords = structure(c(-48.6001, -48.6, -48.5999, 
             -48.6, -48.6001, 45.2, 45.2001, 45.2, 45.1999, 45.2), .Dim = c(5L, 2L)))), 
             plotOrder = 1L, labpt = c(-48.6, 45.2), ID = "point1", area = 2.00000000013279e-08), 
         new("Polygons", Polygons = list(new("Polygon", labpt = c(-88.6, 45.2), area = 2.00000000013279e-08, 
             hole = FALSE, ringDir = 1L, coords = structure(c(-88.6001, -88.6, -88.5999, 
             -88.6, -88.6001, 45.2, 45.2001, 45.2, 45.1999, 45.2), .Dim = c(5L, 2L)))), 
             plotOrder = 1L, labpt = c(-88.6, 45.2), ID = "point2", area = 2.00000000013279e-08)), 
         plotOrder = 2:1, bbox = structure(c(-88.6001, 45.1999, -48.5999, 45.2001), .Dim = c(2L, 
         2L), .Dimnames = list(c("x", "y"), c("min", "max"))), proj4string = new("CRS", 
             projargs = "+proj=longlat +datum=WGS84 +ellps=WGS84 +towgs84=0,0,0")), DRAW_NAMESPACE = "gov.usgs.cida.gdp.draw", 
         DRAW_SCHEMA = "https://cida-test.er.usgs.gov/mda.lakes/draw.xsd"), fabric = new("webdata", 
         times = structure(c(-2366755200, -2366733600), tzone = "UTC", class = c("POSIXct", 
         "POSIXt")), url = "https://cida.usgs.gov/thredds/dodsC/prism_v2", variables = "ppt", 
         dataList = "gov.usgs.cida.gdp.wps.algorithm.discovery.ListOpendapGrids", timeList = "gov.usgs.cida.gdp.wps.algorithm.discovery.GetGridTimeRange"))
  6: dodsReplace(url(fabric))
  7: httr::headers(httr::HEAD(uri))
  8: httr::HEAD(uri)
  9: request_perform(req, hu$handle$handle)
  10: request_fetch(req$output, req$url, handle)
  11: request_fetch.write_memory(req$output, req$url, handle)
  12: curl::curl_fetch_memory(url, handle = handle)
  
  ── 8. Error: Execute XML works with no gmlids and multiple variables (@test-whis
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: XML(wg, wd, wp) at testthat/test-whisker_templating.R:41
  2: XML(wg, wd, wp)
  3: .setProcessInputs(webprocess = knife, stencil = stencil, fabric = fabric)
  4: do.call(fun, list(...))
  5: .DATASET_URI(stencil = new("webgeom", url = "https://www.sciencebase.gov/catalogMaps/mapping/ows/54296bf0e4b0ad29004c2fbb", 
         geom = "sb:Yahara_River_HRUs_alb_eq", attribute = "GRIDCODE", values = NA_character_, 
         version = "1.1.0", GML_IDs = NA_character_, WFS_NAMESPACE = "http://www.opengis.net/wfs", 
         GML_NAMESPACE = "http://www.opengis.net/gml", GML_SCHEMA_LOCATION = "http://schemas.opengis.net/gml/3.1.1/base/feature.xsd"), 
         fabric = new("webdata", times = structure(c(946684800, 1262304000), class = c("POSIXct", 
         "POSIXt"), tzone = "UTC"), url = "https://cida.usgs.gov/thredds/dodsC/prism_v2", 
             variables = c("tmx", "tmn", "ppt"), dataList = "gov.usgs.cida.gdp.wps.algorithm.discovery.ListOpendapGrids", 
             timeList = "gov.usgs.cida.gdp.wps.algorithm.discovery.GetGridTimeRange"))
  6: dodsReplace(url(fabric))
  7: httr::headers(httr::HEAD(uri))
  8: httr::HEAD(uri)
  9: request_perform(req, hu$handle$handle)
  10: request_fetch(req$output, req$url, handle)
  11: request_fetch.write_memory(req$output, req$url, handle)
  12: curl::curl_fetch_memory(url, handle = handle)
  
  ── 9. Error: you can set TAB delimited and get back the right XML (@test-whisker
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: XML(stencil = readRDS("data/test_webgeom_WI.rds"), fabric = readRDS("data/test_webdata_prism_year.rds"), 
         knife = wp) at testthat/test-whisker_templating.R:49
  2: XML(stencil = readRDS("data/test_webgeom_WI.rds"), fabric = readRDS("data/test_webdata_prism_year.rds"), 
         knife = wp)
  3: .setProcessInputs(webprocess = knife, stencil = stencil, fabric = fabric)
  4: do.call(fun, list(...))
  5: .DATASET_URI(stencil = new("webgeom", url = "https://cida.usgs.gov/gdp/geoserver/wfs", 
         geom = "sample:CONUS_states", attribute = "STATE", values = "Wisconsin", version = "1.1.0", 
         GML_IDs = "CONUS_states.48", WFS_NAMESPACE = "http://www.opengis.net/wfs", GML_NAMESPACE = "http://www.opengis.net/gml", 
         GML_SCHEMA_LOCATION = "http://schemas.opengis.net/gml/3.1.1/base/feature.xsd"), 
         fabric = new("webdata", times = structure(c(978307200, 1012867200), class = c("POSIXct", 
         "POSIXt"), tzone = "UTC"), url = "https://cida.usgs.gov/thredds/dodsC/prism_v2", 
             variables = "ppt", dataList = "gov.usgs.cida.gdp.wps.algorithm.discovery.ListOpendapGrids", 
             timeList = "gov.usgs.cida.gdp.wps.algorithm.discovery.GetGridTimeRange"))
  6: dodsReplace(url(fabric))
  7: httr::headers(httr::HEAD(uri))
  8: httr::HEAD(uri)
  9: request_perform(req, hu$handle$handle)
  10: request_fetch(req$output, req$url, handle)
  11: request_fetch.write_memory(req$output, req$url, handle)
  12: curl::curl_fetch_memory(url, handle = handle)
  
  ── 10. Error: you can set output_type geotiff and get back the right XML (@test-
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: XML(stencil = readRDS("data/test_webgeom_WI.rds"), fabric = readRDS("data/test_webdata_prism_year.rds"), 
         knife = wp) at testthat/test-whisker_templating.R:57
  2: XML(stencil = readRDS("data/test_webgeom_WI.rds"), fabric = readRDS("data/test_webdata_prism_year.rds"), 
         knife = wp)
  3: .setProcessInputs(webprocess = knife, stencil = stencil, fabric = fabric)
  4: do.call(fun, list(...))
  5: .DATASET_URI(stencil = new("webgeom", url = "https://cida.usgs.gov/gdp/geoserver/wfs", 
         geom = "sample:CONUS_states", attribute = "STATE", values = "Wisconsin", version = "1.1.0", 
         GML_IDs = "CONUS_states.48", WFS_NAMESPACE = "http://www.opengis.net/wfs", GML_NAMESPACE = "http://www.opengis.net/gml", 
         GML_SCHEMA_LOCATION = "http://schemas.opengis.net/gml/3.1.1/base/feature.xsd"), 
         fabric = new("webdata", times = structure(c(978307200, 1012867200), class = c("POSIXct", 
         "POSIXt"), tzone = "UTC"), url = "https://cida.usgs.gov/thredds/dodsC/prism_v2", 
             variables = "ppt", dataList = "gov.usgs.cida.gdp.wps.algorithm.discovery.ListOpendapGrids", 
             timeList = "gov.usgs.cida.gdp.wps.algorithm.discovery.GetGridTimeRange"))
  6: dodsReplace(url(fabric))
  7: httr::headers(httr::HEAD(uri))
  8: httr::HEAD(uri)
  9: request_perform(req, hu$handle$handle)
  10: request_fetch(req$output, req$url, handle)
  11: request_fetch.write_memory(req$output, req$url, handle)
  12: curl::curl_fetch_memory(url, handle = handle)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 63 SKIPPED: 62 FAILED: 10
  1.  Error: algorithm version works (@test-geoknife_setters.R#80) 
  2.  Error: (unknown) (@test-geoknife_utils.R#51) 
  3.  Error: multi-args work with shorthand knife (@test-knife_shorthand.R#20) 
  4.  Error: query values returns only unique (@test-query_webgeom.R#32) 
  5.  Error: given a geojob, we can create a webprocess (@test-webprocess_object.R#66) 
  6.  Error: basic XML creation works (@test-whisker_templating.R#18) 
  7.  Error: Execute XML creation with two points works (@test-whisker_templating.R#31) 
  8.  Error: Execute XML works with no gmlids and multiple variables (@test-whisker_templating.R#41) 
  9.  Error: you can set TAB delimited and get back the right XML (@test-whisker_templating.R#49) 
  10. Error: you can set output_type geotiff and get back the right XML (@test-whisker_templating.R#57) 
  
  Error: testthat unit tests failed
  Execution halted