Added lines to kontrol.Rmd

exp.Tetřev C1xxK | JO69WQ | Tok 744m | [21-10-2023] 12:00 | [22-10-2023] 12:00 | 01-06 | --- 

exp.Matej S1xxK | JN99EH | Butorky 984m | [21-10-2023] 12:00 | [22-10-2023] 12:00 | 01-06 | OPAK 23+B23 Faltus 

exp.Omega S2xxK | JN88UU | Veľká Javorina 970m | [21-10-2023] 12:00 | [22-10-2023] 12:00 | 01-06 | OPAK B23  

Mates Brno C2xxK | XX00XX | str.SVK? | [20-10-2023] 18:00 | [21-10-2023] 08:00 | 01-03 |  

Mates Brno C2xxK | XX00XX | sev.Morava/Čechy? | [21-10-2023] 18:00 | [22-10-2023] 16:00 | 04-08 | OPAK 23 

Mates Brno C2xxK | KN08KX | Slubica 1129m?? | [20-10-2023] 18:00 | [21-10-2023] 06:30 | 01-03 |  

Mates Brno C2xxK | JO80IB | Suchy vrch 995m | [21-10-2023] 18:00 | [22-10-2023] 16:00 | 04-08 | OPAK 23 

* $^1$ xx v soutěžním znaku prémiové stanice se bude v průběhu závodu měnit po cca 4-6 hodinách, aby soutěžní stanice mohly dělat opakovaná spojení a případně informovala tímto prémiovku o změně své polohy

* $^2$ dosah prémiových stanic na opakovače dle odhadu organizátora, skutečnost se může lišit

```{r, fig.width=9.5, warning=FALSE, echo=FALSE}

library(leaflet)

linedf <- data.frame(

  lat = c(49.7043300,49.3235417,48.8579106),

  lng = c(13.8765383,18.3875903,17.6759411)

  lat = c(49.7043300,49.3235417,48.8579106,48.9730325,50.0506619),

  lng = c(13.8765383,18.3875903,17.6759411,20.8732764,16.6934078)

)

leaflet() %>%

  addTiles %>% # Add default OpenStreetMap map tiles

                    fillColor = "orange", popup = "S1K exp.Matej /p Butorky", fillOpacity=0.5, opacity=1) %>%

                        addCircles(linedf$lng[3], linedf$lat[3], weight = 1, radius = 60000, color =  "red",

                    fillColor = "orange", popup = "S2K exp.Omega /p Veľká Javorina", fillOpacity=0.5, opacity=1) %>%

                                            addCircles(linedf$lng[4], linedf$lat[4], weight = 1, radius = 50000, color =  "red",

                    fillColor = "orange", popup = "C2K Mates Brno /p Slubica", fillOpacity=0.5, opacity=1) %>%

                                            addCircles(linedf$lng[5], linedf$lat[5], weight = 1, radius = 40000, color =  "red",

                    fillColor = "orange", popup = "C2K Mates Brno /p Suchy Vrch", fillOpacity=0.5, opacity=1) %>%

                    addPolylines(data=linedf[4:5,], ~lng, ~lat, color = c("red","white"), opacity = c(1,0.1), weight = 2, dashArray = c(5,2)) %>%

  setView(lng = 17.5, lat = 49.5, zoom = 7)

```