# NOT RUN {
map_key <- 'your_api_key'
df <- data.frame(north = 33.685, south = 33.671, east = -116.234, west = -116.251)
google_map(key = map_key) %>%
add_rectangles(data = df, north = 'north', south = 'south',
east = 'east', west = 'west')
## editable rectangle
df <- data.frame(north = -37.8459, south = -37.8508, east = 144.9378,
west = 144.9236, editable = T, draggable = T)
google_map(key = map_key) %>%
add_rectangles(data = df, north = 'north', south = 'south',
east = 'east', west = 'west',
editable = 'editable', draggable = 'draggable')
# }
Run the code above in your browser using DataLab