Leaflet Project

Leaflet Project

This is a Leaflet Project.

Leaflet is a Javascript library that works with R and other programming languages.

We are shown the location of Saint Luous Missouri Chess Club.

If you click in the name, you will visit their website.

#install.packages("leaflet")
library(leaflet)
library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.2     v dplyr   1.0.7
## v tidyr   1.1.3     v stringr 1.4.0
## v readr   1.4.0     v forcats 0.5.1

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

content <- paste(sep = "<br/>",
                 "<b><a href='https://saintlouischessclub.org/'>Saint Louis Missouri Chess Club</a></b>",
                 "4657 Maryland Avenue",
                 "Saint Louis, Missouri 63108"
) 

leaflet() %>% addTiles() %>%
  addPopups(-90.26039380356369, 38.645056647850495, content,
            options = popupOptions(closeButton = FALSE)
  )  %>%
  addRectangles(
    lng1=-90, lat1=38,
    lng2=-93, lat2=41,
    fillColor = "transparent"
  )