ui.R

library(tidyverse)
library(plotly)
library(lubridate)
library(bslib)
library(markdown)
library(thematic)


# Load and clean up data ----

# Load original data
collisions_raw_df <- read.csv("seattle-collisions.csv", stringsAsFactors = F)

# Remove unnecessary columns
collisions_df <- collisions_raw_df %>%
  select(
    -INCKEY:-INTKEY, -EXCEPTRSNCODE, -EXCEPTRSNDESC, -INATTENTIONIND,
    -PEDROWNOTGRNT:-HITPARKEDCAR
  )

# Add NA to blank cells
collisions_df <- collisions_df %>%
  mutate_all(na_if, "")

# Save dates
dates <- as.Date(collisions_df$INCDATE)

# Remove the year 2003 and 2022
collisions_df <- collisions_df %>%
  mutate(YEAR = year(INCDATE)) %>%
  filter(YEAR != 2003, YEAR != 2022)

# Update dates
dates <- as.Date(collisions_df$INCDATE)

# Collision types
collision_types <- collisions_df %>%
  group_by(COLLISIONTYPE) %>%
  tally() %>%
  na.omit()

# Introduction ----

# Introduction tab panel
intro_tab <- tabPanel(
  "Home Page",
  HTML(
    '<center><img src = "https://media.istockphoto.com/vectors/vector-of-two-car-accident-top-view-of-vehicle-collision-on-blue-vector-id1151971103?k=20&m=1151971103&s=612x612&w=0&h=QOsIoWB-41HXm-EuR6i5C2-7cGZSJfBJ9lxAvGtQErk=" width = "600"></center>'
  ),
  hr(),
  tabsetPanel(
    type = "tabs",
    tabPanel(
      "About the Project",
      includeMarkdown("text-files/about-the-project.md")
    ),
    tabPanel(
      "Dataset",
      includeMarkdown("text-files/dataset.md")
    ),
    tabPanel(
      "Limitations and Challenges",
      includeMarkdown("text-files/limit-challenge.md")
    ),
    tabPanel(
      "About Us",
      includeMarkdown("text-files/about-us.md")
    )
  )
)

# Chart 1 ----

# Widget
chart1_widget <- sidebarPanel(
  radioButtons(
    inputId = "trend_selection",
    label = h6("Select a trend"),
    choices = list(
      "Total Collisions" = 1,
      "People Involved" = 2,
      "Vehicles Involved" = 3
    ),
    selected = 1
  ),
  selectizeInput(
    inputId = "year1_selection",
    label = h6("Select up to 4 years to compare"),
    choices = sort(unique(collisions_df$YEAR)),
    options = list(maxItems = 4, placeholder = "Select a year"),
    selected = "2004",
    multiple = T
  )
)

# Plot
chart1_plot <- mainPanel(
  plotlyOutput(outputId = "chart1")
)

# Chart 2 ----

# Widget
chart2_widget <- sidebarPanel(
  checkboxGroupInput(
    inputId = "casualty_selection",
    label = h6("Select a casualty type(s)"),
    choices = list(
      "Injuries" = "Injuries",
      "Serious Injuries" = "Serious Injuries",
      "Fatalities" = "Fatalities"
    ),
    selected = "Injuries"
  )
)

# Plot
chart2_plot <- mainPanel(
  plotlyOutput(outputId = "chart2")
)

# Chart 3 ----

# Widget
chart3_widget <- sidebarPanel(
  radioButtons(
    inputId = "condition_selection",
    label = h6("Select a condition"),
    choices = list(
      "Weather" = 1,
      "Road" = 2,
      "Light" = 3
    ),
    selected = 1
  )
)

# Plot
chart3_plot <- mainPanel(
  plotlyOutput(outputId = "chart3")
)

# Chart 4 ----

# Widget
chart4_widget <- sidebarPanel(
  sliderInput(
    inputId = "year4_selection",
    label = h6("Select a year"),
    min = min(collisions_df$YEAR),
    max = max(collisions_df$YEAR),
    value = 2010,
    sep = ""
  ),
  checkboxGroupInput(
    inputId = "coltype_selection",
    label = h6("Select a collision type(s)"),
    choices = collision_types$COLLISIONTYPE,
    selected = collision_types$COLLISIONTYPE[1:5]
  )
)

# Plot
chart4_plot <- mainPanel(
  plotlyOutput(outputId = "chart4")
)

# Visualization tab ----

viz_tab <- navbarMenu(
  "Visualization",
  tabPanel(
    title = "Collision Trends Over Time",
    h1(em("Collision Trends Over Time")),
    hr(),
    sidebarLayout(chart1_widget, chart1_plot),
    hr(),
    includeMarkdown("text-files/collision-trends.md")
  ),
  tabPanel(
    title = "Casualties from Collisions",
    h1(em("Casualties from Collisions")),
    hr(),
    sidebarLayout(chart2_widget, chart2_plot),
    hr(),
    includeMarkdown("text-files/casualties.md")
  ),
  tabPanel(
    title = "Conditions during Accidents",
    h1(em("Conditions during Accidents")),
    hr(),
    sidebarLayout(chart3_widget, chart3_plot),
    hr(),
    includeMarkdown("text-files/conditions.md")
  ),
  tabPanel(
    title = "Collision Types Comparison",
    h1(em("Collision Types Comparison")),
    hr(),
    sidebarLayout(chart4_widget, chart4_plot),
    hr(),
    includeMarkdown("text-files/collision-types.md")
  )
)

# Conclusion ----

# Table panel
table_panel <- sidebarPanel(
  tableOutput(outputId = "table"),
  width = 5
)

# Table summary
summary_panel <- mainPanel(
  includeMarkdown("text-files/table-summary.md"),
  width = 7
)

# Conclusion tab panel
conclusion_tab <- tabPanel(
  "Insights",
  HTML(
    '<center><img src = "https://kennyperezlaw.com/wp-content/uploads/2021/09/Head-on-Car-Collisions%E2%80%94The-Most-Dangerous-Crashes.jpg" width = "600"></center>'
  ),
  hr(),
  tabsetPanel(
    type = "tabs",
    tabPanel(
      "Key Takeaways",
      includeMarkdown("text-files/insights.md")
    ),
    tabPanel(
      "Table Summary",
      sidebarLayout(
        summary_panel,
        table_panel,
        position = c("left", "right"),
        fluid = T
      )
    )
  )
)

# 6. UI ----

# Theme
my_theme <- bs_theme(
  bootswatch = "cerulean",
  base_font = font_google("Tiro Gurmukhi"),
  heading_font = font_google("EB Garamond"),
  font_scale = 1.1
)

# Enable thematic for every plot inside the app
thematic_shiny(font = "auto")

# Change all the plots to reflect RStudio theme
thematic::thematic_on()

# User interface
ui <- navbarPage(
  theme = my_theme,
  "Seattle Collisions",
  intro_tab,
  viz_tab,
  conclusion_tab
)