Area of Interest for Mapunit study near Chetwynd, B.C.,Canada

leaflet(trans_df) %>% addTiles() %>%  
addPolygons(data=tfl_df,weight=3,fillOpacity = 0.1, smoothFactor = 0.5,color="black")%>%
addPolygons(data=aoi_df,weight=3,fillOpacity = 0.1, smoothFactor = 0.5,color="red")%>%
addPolygons(data=plots_df,weight=1,fillOpacity = 0.7, smoothFactor = 0.5,color="yellow") %>%
addPolygons(data=trans_df,weight=1,fillOpacity = 0.7, smoothFactor = 0.5,color="green", popup = paste("Mapunit: ",trans_df$mapunit,"<br>"))