Check out the final Bommeleeër Affär Dashboard.

Background

Data Collection

Setup

# library(flexdashboard)
library(tidyverse)
library(lubridate)
library(leaflet)
library(DT)
library(timevis)
library(crosstalk)
library(widgetframe)
library(htmlwidgets)

bomm <- read_csv("C:/Users/bryan/Dropbox/Computer/Andromeda-Tau/data-reflections/blog-data/bommeleeer-affar/data/bommeleeër-affär.csv")

bomm$Date <- mdy(bomm$Date)

Locations

Shared data

shared_bomm <- SharedData$new(bomm)

Custom icon

expl_icon <- makeIcon(
  iconUrl = "https://cdn-icons-png.flaticon.com/512/831/831687.png",
  iconWidth = 24, iconHeight = 24)

Map

bomm_map <- leaflet() %>%
  addTiles(group = "Map") %>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Satellite") %>%
  addMarkers(data = shared_bomm,
             lng = ~longitude, lat = ~latitude,
             popup = ~paste0("Target: ", Target, "<br/>Location: ", Location, "<br/>Date: ", Date, "<br/>", Notes),
             label = ~Target,
             icon = expl_icon) %>%
  addLayersControl(baseGroups=c("Map", "Satellite"),
                   options=layersControlOptions(collapsed=FALSE))

frameWidget(bomm_map, width = "100%")

Table

bomm_table <- shared_bomm %>%
  datatable(rownames = FALSE)

frameWidget(bomm_table, width = "100%")

Filter

bomm_filter <- filter_slider("Date", "Date", shared_bomm, column = ~Date)
bomm_filter

Timeline

bomm_time <- bomm %>%
  mutate(start = Date) %>%
  mutate(content = Target) %>%
  timevis()

frameWidget(bomm_time, width = "100%", height = 1000)

Documents

Summary

Future Explorations