Commit cdec1a09 authored by Facundo Muñoz's avatar Facundo Muñoz ®️
Browse files

interface: always plot the epi units lightly in the background of the raw plot for reference

parent 5f86ad7c
......@@ -447,8 +447,17 @@ server <- function(input, output, session) {
}
plot(finalLayer[[indRawLay]])
## Plot the epidemiological units lightly in the background
epidUnitLayer <- isolate(curEpidUnitLayer())
if(is.null(epidUnitLayer)) {
addsetting = FALSE
} else {
plot(epidUnitLayer[[indRawLay]], border = "lightgray")
addsetting = TRUE
}
plot(finalLayer[[indRawLay]], add = addsetting)
})
......@@ -715,7 +724,7 @@ server <- function(input, output, session) {
})
##### Render for display of final unit raster ####
##### Render for display of final unit vector ####
output$resultUnitDisplay <- renderPlot({
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment