server <- function(input, output) {
map_server(id = map2,
polygons = watersheds,
polygon_legend_title = "Watershed",
points = farms,
polylines = rivers,
point_color = 'red',
polyline_color = 'black')
}
Run the code above in your browser using DataLab