---
title: "Getting started with pragr"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Getting started with pragr}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  dev = "ragg_png",
  fig.width = 10,
  out.width = "100%",
  dpi = 300,
  fig.retina = 3,
  fig.asp = .7
)
```

```{r setup}
library(pragr)
```

## Using services identified by URL

```{r}
prg <- CzechData::load_RUIAN_settlement(pragr::prg_kod)
```

```{r}
plot(prg, max.plot = 1)
```


```{r}
ggplot2::ggplot() +
  prg_basemap(prg, image_service = "https://gs-pub.praha.eu/imgs/rest/services/geo/ig_mapy_geologicke_pomery/ImageServer", 
              buffer = 100, width = 2000)
```

```{r}

```

