victimofmaths / covidmapper Goto Github PK

Hi Colin,

Demo of some potential tweaks to the UI (moving a few bits of your code and commenting out some).
https://andysouth.shinyapps.io/COVIDmapper-tweaked/

Code :
https://github.com/andysouth/COVIDmapper

Too nice outside to be in doing this, I'm going out now.
I can submit a pull request later if you'd like, no obligation, no rush.
Andy

Seems like the data folder and shapefile are missing from the repo :-)

Dear @VictimOfMaths,
I hope you are well!
Hope you can help me out, thanks.

Within your output plot store the final plot

:

`output$plot <- renderPlot({

.....

  finalplot = ggdraw()+
    draw_plot(plot, 0,0,1,1)+
    eval(parse(text=ifelse(input$legendpos==5, "NULL", paste0("draw_plot(key,", legpos, ")"))))
  
  covid_download <<- reactive({finalplot})
  
  print(finalplot)
  
})

})`

Within your UI add this:

fluidPage(

...

#Set up main panel for the plot
mainPanel(
  fluidRow(plotOutput("plot")),
  br(),
  fluidRow(downloadButton('covid_download'))
  ) # end mainpanel

) # end sidebar

)

I don't have the original shape file so can't check that it works.