## ----include-full-station-map, echo=FALSE, results='asis'---------------------
if (Sys.getenv("EDR4R_FULL_VIGNETTES") == "true") {
  station_map <- "getting-started-full/station-map-iframe.html"
  if (!file.exists(station_map)) {
    stop("Full station map output is missing: ", station_map)
  }
  cat(readLines(station_map, warn = FALSE), sep = "\n")
}

## ----include-full-prism-map, echo=FALSE, results='asis'-----------------------
if (Sys.getenv("EDR4R_FULL_VIGNETTES") == "true") {
  prism_map <- "getting-started-full/prism-map-iframe.html"
  if (!file.exists(prism_map)) {
    stop("Full PRISM map output is missing: ", prism_map)
  }
  cat(readLines(prism_map, warn = FALSE), sep = "\n")
}