addbikeparking.R

# allows us to add a new bike parking spot

library(tidyverse)
library(mapboxapi)


newaddress <- "23961 WA-3, Belfair, WA 98528"
newname <-"SAFEWAY BELFAIR"
newimage <- "Safeway Belfair.jpg" # NA if none
newdesc <- "To the left of entrance by Devita"
newvariant <- "OTHER" #VARIANT GRID WAVE BOLLARD STAPLE CUSTOM
newcovered <- "YES" #YESNO
newspaces <- 4 # number

# read it in
bikeparking <- read_csv("~/Documents/kitsap-bike-parking/kitsap-bike-parking.csv") 

# add the stuff
bikeparking <- bikeparking %>%
  add_row(NAME = newname,
          ADDRESS = newaddress,
          DESC = newdesc,
          VARIANT = newvariant,
          COVERED = newcovered,
          SPACES = newspaces,
          IMG = newimage,
          LNG = mb_geocode(newaddress)[1],
          LAT = mb_geocode(newaddress)[2]
  )

write_csv(bikeparking, file="~/Documents/kitsap-bike-parking/kitsap-bike-parking.csv")


bikeparking %>%
  group_by(COVERED) %>%
  summarize(SPACES = sum(SPACES))

# mapbox_map <- leaflet() %>%
#   addMapboxTiles(style_id = "light-v9",
#                  username = "mapbox") %>%
#   setView(lng = -122.6413,
#           lat = 47.6477,
#           zoom = 11)
# 
# mapbox_map %>% 
#   leaflet() %>%
#   setView(lng = -122.6413,
#           lat = 47.6477,
#           zoom = 11)%>%
#   addTiles() %>%
#   addCircleMarkers(data = bikeparking, lng = ~LNG, lat = ~LAT, color = "#301934",
#                    label = ~NAME, radius = 7,  fillOpacity = 0.7, fillColor = "#D8BFD8") 
#markerOptions(interactive = FALSE))
#labelOptions(noHide = TRUE, permanent = TRUE))