<python.builtin.ValueError/python.builtin.Exception/python.builtin.BaseException/python.builtin.object/error/condition>
Error in `py_call_impl(callable, call_args$unnamed, call_args$named)`: ValueError: Please create .MGP-config in home dir.
Run `reticulate::py_last_error()` for details.

test_that("Interface class initializes correctly", {
test_that("Interface class can search for features in 4326", {
result <- interface$streaming_search(bbox = bbox4326)
test_that("Interface class can search for features in 3857", {
result <- interface$streaming_search(bbox = bbox3857, srsname = "EPSG:3857")
test_that("Interface class can download a shapefile of search results", {
result <- interface$streaming_search(bbox = bbox4326, shapefile = TRUE, download_path = file.path(download_loc, "shapeDownload.zip"))
test_that("Interface class can download a CSV of search results", {
result <- interface$streaming_search(bbox = bbox4326, csv = TRUE, download_path = file.path(download_loc,"Download.csv"))
test_that("Interface class can perform a wms request and download a file in EPSG:4326", {
result <- interface$streaming_download_image(bbox = bbox4326, height = 512, width = 512, outputpath =file.path(download_loc,"download.jpeg"), display = FALSE)
test_that("Interface class can perform a wms request and download a file in EPSG:3857", {
result <- interface$streaming_download_image(bbox = bbox3857, srsname="EPSG:3857",height = 512, width = 512, outputpath =file.path(download_loc,"download3857.jpeg"), display=FALSE)
test_that("Interface class can perform a wfs search for basemaps features",{
result <- interface$basemaps_search(bbox = bbox4326, srsname = "EPSG:4326",filter="productName='VIVID_STANDARD_30'")
test_that("Interface class can perform a wfs search for basemaps seamlines features",{
result <- interface$basemaps_search(bbox = bbox4326, srsname = "EPSG:4326",filter="product_name='VIVID_STANDARD_30'", seamlines=TRUE)
test_that("Interface class can perform a 3857 wfs search for basemaps features",{
result <- interface$basemaps_search(bbox = bbox3857, srsname = "EPSG:3857",filter="productName='VIVID_STANDARD_30'")
test_that("Interface class can perform a 3857 wfs search for basemaps features seamlines",{
result <- interface$basemaps_search(bbox = bbox3857, srsname = "EPSG:3857",filter="product_name='VIVID_STANDARD_30'",seamlines = TRUE)
test_that("Interface class can perform a wfs search for basemaps features and download SHP",{
result <- interface$basemaps_search(bbox = bbox4326, srsname = "EPSG:4326",filter="productName='VIVID_STANDARD_30'", shapefile = TRUE,download_path = file.path(download_loc, "shapeDownload.zip"))
test_that("Interface class can perform a wfs search for basemaps features and download SHP seamlines",{
result <- interface$basemaps_search(bbox = bbox4326, srsname = "EPSG:4326",filter="product_name='VIVID_STANDARD_30'", shapefile = TRUE,seamlines=TRUE,download_path = file.path(download_loc, "shapeDownload.zip"))
test_that("Interface class can perform a wfs search for basemaps features and download CSV",{
result <- interface$basemaps_search(bbox = bbox4326, srsname = "EPSG:4326",filter="productName='VIVID_STANDARD_30'", csv = TRUE,download_path = file.path(download_loc, "Download.csv"))
test_that("Interface class can perform a wfs search for basemaps features and download CSV seamlines",{
result <- interface$basemaps_search(bbox = bbox4326, srsname = "EPSG:4326",filter="product_name='VIVID_STANDARD_30'", csv = TRUE,seamlines = TRUE,download_path = file.path(download_loc, "Download.csv"))
test_that("Interface class can perform a wfs search for basemaps features and download SHP in 3857",{
result <- interface$basemaps_search(bbox = bbox3857, srsname = "EPSG:3857",filter="productName='VIVID_STANDARD_30'", shapefile = TRUE,download_path = file.path(download_loc, "shapeDownload.zip"))
test_that("Interface class can perform a wfs search for basemaps features and download SHP in 3857 seamlines",{
result <- interface$basemaps_search(bbox = bbox3857, srsname = "EPSG:3857",filter="product_name='VIVID_STANDARD_30'", shapefile = TRUE,seamlines=TRUE,download_path = file.path(download_loc, "shapeDownloadSeamlines.zip"))
test_that("Interface class can perform a wfs search for basemaps features and download CSV in 3857",{
result <- interface$basemaps_search(bbox = bbox3857, srsname = "EPSG:3857",filter="productName='VIVID_STANDARD_30'", csv = TRUE,download_path = file.path(download_loc, "Download.csv"))
test_that("Interface class can perform a wfs search for basemaps features and download CSV in 3857 seamlines",{
result <- interface$basemaps_search(bbox = bbox3857, srsname = "EPSG:3857",filter="product_name='VIVID_STANDARD_30'", csv = TRUE,seamlines = TRUE,download_path = file.path(download_loc, "Download.csv"))
test_that("Interface class can perform a WMS request for basemaps and download the image",{
result <- interface$basemaps_download_image(bbox = bbox4326, srsname = "EPSG:4326",height = 512,width = 512,img_format = "jpeg", outputpath =file.path(download_loc,"download4326basemaps.jpeg"))
test_that("Interface class can perform a WMS request for basemaps and download the image seamlines",{
result <- interface$basemaps_download_image(bbox = bbox4326, srsname = "EPSG:4326",height = 512,width = 512,img_format = "jpeg", seamlines = TRUE,outputpath =file.path(download_loc,"download4326basemaps.jpeg"))
test_that("Interface class can perform a WMS request for basemaps and download the image 3857",{
result <- interface$basemaps_download_image(bbox = bbox3857, srsname = "EPSG:3857",height = 512,width = 512,img_format = "jpeg", outputpath =file.path(download_loc,"download3857basemaps.jpeg"))
test_that("Interface class can perform a WMS request for basemaps and download the image 3857 seamlines",{
result <- interface$basemaps_download_image(bbox = bbox3857, srsname = "EPSG:3857",height = 512,width = 512,img_format = "jpeg", seamlines = TRUE,outputpath =file.path(download_loc,"download3857basemaps.jpeg"))
test_that("Interface class can perform WMTS request for basemaps and download tiles",{
result <- interface$basemaps_download_tiles(bbox = bbox4326, zoom_level = 13, outputpath = file.path(download_loc,"Basmaps_tiles"))
expect_true(any(grepl("MaxarTile", list.files(path = file.path(download_loc,"Basmaps_tiles"))))) #checks the whole directory for files that are MaxarTile
test_that("Interface class can perform WMTS request for basemaps and download tiles seamlines",{
result <- interface$basemaps_download_tiles(bbox = bbox4326, zoom_level = 13, seamlines = TRUE,outputpath = file.path(download_loc,"Basmaps_seamlines_tiles"))
expect_true(any(grepl("MaxarTile", list.files(path = file.path(download_loc,"Basmaps_seamlines_tiles"))))) #checks the whole directory for files that are MaxarTile
test_that("Interface class can perform stac search",{
result <- interface$discovery_stac_search(bbox=bboxDiscover, datetime=datetime, collections=collections, where=where, orderby=orderby)
test_that("Interface class can perform search with audit fields",{
result <- interface$discovery_search_by_audit_fields(collection_id = collections, audit_update_date = audit_date, limit = as.integer(1))
expect_true(grepl("102", result), info = "Expected '102' to be present in the result")
test_that("Interface can get root catalog", {
test_that("Interface can get collection definitions", {
result <- interface$discovery_get_collection_definition(collection_id = collections)
test_that("Interface can get all collections", {
test_that("Interface can View details about a specific STAC item", {
result <- interface$discovery_get_stac_item(collection_id = collections, item_id = stac_id)
test_that("Interface can get top level sub catalog", {
result <- interface$discovery_get_top_level_sub_catalog(limit = as.integer(2))
test_that("Interface can get sub catalog ", {
result <- interface$discovery_get_sub_catalog(sub_catalog_id = sub_catalog_id)