In burch-cm/fleetreportr: Tools for Generating FAA Fleet Reports

knitr::opts_chunk$set(echo = FALSE)
knitr::opts_chunk$set(message = FALSE)
library(knitr)
source("./R/dummy_mileage_data.R")

Charts and Visualization

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

library(ggplot2)
mileage_chart

Changing Inline Variables

Today's date: r format(Sys.Date(), '%B %d, %Y')

Inline summary and analysis: There were r sum(low_use$low_use) vehicles in the sample let with an average monthly mileage less than 300 miles / month.

Inline calculation: The average monthyly mileage of all sample vehicles was r round(mean(vehicle_mileage$mileage, na.rm = TRUE), 1) miles per month.

The average monthly mileage of the vehicles in the chart is r vehicle_mileage %>% filter(tag %in% sub_tags) %>% summarize(mean = mean(mileage)) %>% select(mean) %>% round(1) miles per month.

Tables

Quod quidem iam fit etiam in Academia. Ut optime, secundum naturam affectum esse possit. Quo modo autem optimum, si bonum praeterea nullum est? Quorum sine causa fieri nihil putandum est. Quia voluptatem hanc esse sentiunt omnes, quam sensus accipiens movetur et iucunditate quadam perfunditur. Quis non odit sordidos, vanos, leves, futtiles? Hoc positum in Phaedro a Platone probavit Epicurus sensitque in omni disputatione id fieri oportere.

Lowest-Use Vehicles:

low_use %>%
    filter(low_use == TRUE) %>%
    select(tag, avg_mileage) %>%
    arrange(avg_mileage) %>%
    head(10) %>%
    rename("Vehicle Tag" = tag, "Average Mileage" = avg_mileage) %>%
    kable(digits = 1)