COVID-19 in Toronto

RMemmel
2020-10-15

The Assignment


Reproducible Pitch Presentation


The presentation must satisfy the following

  1. It must be done in Slidify or Rstudio Presenter (using Rstudio Presenter here)
  2. It must be 5 pages (yes)
  3. It must be hosted on github or Rpubs (RPubs)
  4. It must contained some embedded R code that gets run when slidifying the document (see page 5)

Application Background


How and where:

  • The application was created in R with a web application framework called Shiny.
  • The app is publicly available and hosted on RPubs.

There are two parts to the source code: server.R and ui.R:

  1. server.R is the server logic required for the web application
  2. ui.R defines the user-interface (i.e. the sidebar Layout)

Application Overview


Purpose:


The purpose of the application is to make sense of the transmission vectors of COVID-19 in various Toronto neighborhoods. The data set is compiled from the latest available public health data.

The app allows users to input a possible transmission vector or “Source of Infection” to be selected from a dynamically populated drop-down list. The user may also specify a date reange to narrow down results. The app then displays the results broken down by Toronto neighbouhoods.

Example of Application Code that get run


    ``{r}
    library(ggplot2) # these are the required libraries:
    library(knitr)
    library(dplyr)
    library(shiny)
    library(plotly)
    ```

    ``{r}
    figure2 <- plot_ly(hoods, x = ~Neighbourhood.Name, 
    y = ~frequency, type = 'bar', color = I("green"))

    figure2 <- figure2 %>% layout(title = paste
    (input$source,"Travel related COVID-19 cases in 
    Toronto Neighbourhoods (2020)"),
    xaxis = list(title = "Neighbourhood", tickangle = -45),
    yaxis = list(title = "Total"),
    margin = list(b = 100),
    barmode = 'group')
    ```