lab7_v3

library(leaflet)
library(sp)

biketheft = read.csv("biketheft.csv")

biketheft$Longitude = as.numeric(biketheft$Longitude)
biketheft$Latitude = as.numeric(biketheft$Latitude)

biketheft.SP = SpatialPointsDataFrame(
  biketheft[,c(6,7)],
  biketheft[,-c(6,7)]
)

bikeicon = makeIcon(
  iconUrl = "bikeicon.png",
  iconWidth = 34,
  iconHeight = 50,
  iconAnchorX = 17,
  iconAnchorY = 48
)

m = leaflet() %>%
  addTiles() %>%
  addMarkers(
    data = biketheft,
    lng = ~Longitude,
    lat = ~Latitude,
    icon = bikeicon,
    clusterOptions = markerClusterOptions(showCoverageOnHover = FALSE),
    popup = ~paste(
      "<b>Neighborhood:</b>", Neighbourhood,
      "<br /><b>Address:</b>", Hundred_Block,
      "<br /><b>Date (Y/M/D):</b>", Date,
      "<br /><b>Time (Hr:Min):</b>", Time
    )
  ) %>%
  addControl(
    position = "bottomright",
    html = "<p style='width:235px;font-size:8pt;color:black;margin:0px'>
    <b>Author:</b> Clara Morin
    <br><b>Data Source:</b> <a href='https://geodash.vpd.ca/opendata/'>VPD Data Portal</a> (2022)
    <br>GEOS 372 | Lab Section L2B</p>"
  ) %>%
  addLegend(
    position = "bottomright",
    colors = c("#91d467","#ebc83d","#f68f42"),
    labels = c("< 10", "< 100", "100+"),
    opacity = 1,
    title = "Number of Bike Thefts"
  )

m