# Earth Engine Vector Asset Example

    library(rgeedim)
    library(terra)

    project_id <- Sys.getenv("GOOGLE_CLOUD_QUOTA_PROJECT", "rgeedim-demo")
    gd_initialize(project = project_id)

    ee <- earthengine()

    p <- ee$FeatureCollection("WCMC/WDPA/current/polygons")$filter(
      ee$Filter$And(
        ee$Filter$eq("NAME", "Yellowstone"),
        ee$Filter$eq("DESIG_ENG", "National Park")
      )
    )

    y <- gd_region(p) |>
      gd_region_to_vect()

    b <- gd_bbox(p) |>
      gd_region() |>
      gd_region_to_vect()

    r <- gd_image_from_id("USGS/SRTMGL1_003") |>
      gd_download(
        "dem.tif",
        region = b,
        overwrite = TRUE,
        resampling = "bilinear",
        scale = 100,
        crs = "EPSG:4326",
        bands = list("elevation")
      ) |>
      terra::rast()

    plot(r)
    plot(as.lines(y), add = TRUE, col = "red", lwd = 3)