replcace this with arc2r/arc2r

[github-actions[bot]]

replcace this with arc2r/arc2r

https://github.com/arc2r/book/blob/0670a4c905eedbcecb415e7fb0cd3ee007040e90/03_Analysis/Extract_toolset.Rmd#L12

<!--
/ todo: replcace this with arc2r/arc2r
/  assignees: KimboGilda
--> 

```{r}
library(sf)
library(tmap)

# Point dataset depicting the train stations locations across Switzerland
bahn_haltestelle_ch <- st_read("sample_data/other/Haltestelle_Bahn_CH.shp")

# Dataset depicting Switzerland on canton level
kantonsgebiet <- st_read("sample_data/other/Kantonsgebiet.shp")

tmap_mode(mode = "plot") # setting the plotting mode to static -- optimizing the process

tm_shape(kantonsgebiet) + tm_polygons("#f0f0f0") + 
  tm_shape(bahn_haltestelle_ch) + tm_dots(col = "#e34a33",size = 0.1, alpha = 0.5) + 

6a84d7008cb667051e8b2bd733bc94f406573720