Shiny app to explore South Australia's road accidents data
HTML R CSS
Switch branches/tags
Nothing to show
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
data
img
.Rhistory
.gitignore
LICENSE
README.md
app.R
note.html
styles2.css

README.md

Exploring South Australia's Road Accidents Data

Demo

Live demo is unavailable, but you can run the app from RStudio using the following code:

## Install missing packages
packagesRequired <- c("shiny", "maptools", "dplyr",
                      "leaflet", "rgeos", "RColorBrewer",
                      "data.table")
packagesToInstall <- packagesRequired[!(packagesRequired %in%
                                          installed.packages()[,"Package"])]
if(length(packagesToInstall)) install.packages(packagesToInstall)
## Run app from Github repo
shiny::runGitHub('asheshwor/crashsa')

Screenshots

app screenshot 1 Screenshot of app

app screenshot 2 Screenshot of app

Data source

The data from Department of Planning, Transport and Infrastructure was obtained from https://data.sa.gov.au/data/dataset/road-crashes-in-sa

Bounding box for suburbs extracted from https://data.sa.gov.au/data/dataset/suburb-boundaries

To-do

  • statistics of data being displayed
  • filter by type of incidents

License:

Code distributed under the terms of the [MIT license] (https://github.com/asheshwor/crashsa/blob/master/LICENSE)

See individual licenses for external data/tools used if any.