output$mapData <- renderPlotly({
mapData <- mapData()
ggplotly(mapData, tooltip = "label", width = 700, height = 400)
})
mapData <- reactive({
w.use <- w.use()
norm.element <- df[["data.element.norm"]]
unit.type <- ifelse(input$unitTypeHUC, "huc", "county")
if(norm.element == "None"){
norm.element <- NA
}
if((df[["area.column"]] %in% c("Area", "Area.Name", "STATECOUNTYCODE", "HUCCODE", "COUNTYNAME"))){
if((df[["area.column"]] %in% c("Area", "Area.Name"))){
if(!(input$unitTypeHUC)){
if (df[["area.column"]] == c("Area.Name")){
w.use$STATECOUNTYCODE <- paste0(stateCd$STATE[which(stateCd$STATE_NAME == input$stateToMap)],w.use[[c("Area")]])
}else{
w.use$STATECOUNTYCODE <- paste0(stateCd$STATE[which(stateCd$STATE_NAME == input$stateToMap)],w.use[[df[["area.column"]]]])
}
} else {
w.use$HUCCODE <- w.use[[df[["area.column"]]]]
}
}
w.use$YEAR <- as.integer(sapply(strsplit(w.use$YEAR, "_"), function(x) x[[1]][1]))
mapData <- choropleth_plot(w.use, df[["data.element"]], year = as.integer(sapply(strsplit(input$year_x, "_"), function(x) x[[1]][1])),
state = input$stateToMap, norm.element = norm.element, unit.type = unit.type)
} else {
mapData <- ggplot(data = mtcars) +
geom_text(x=0.5, y=0.5, label = "Choose new state or use County or HUC data")
}
mapData
})
#
# output$hover_map <- renderPrint({
# txt <- ""
#
# hover=input$hover_map
#
# if(!is.null(hover)){
#
# data <- histCounties
# point.to.check <- SpatialPoints(data.frame(x = hover$x, y=hover$y), proj4string=CRS(proj4string(data)))
#
# dist=over(point.to.check, data)
# txt <- dist$FIPS
# }
#
# cat("Site: ", txt)
# })
output$downloadMap <- downloadHandler(
filename = function() { "map.png" },
content = function(file) {
ggsave(file, plot = mapData(), device = "png")
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.