R/obtn_wildfire_map.R

In rfortherestofus/obtn: Oregon by the Numbers

#' Make wildfire map of 2020 fires
#'
#' @param obtn_year
#' @param plot_width
#' @param plot_height
#'
#' @return
#' @export
#'
#' @examples
obtn_plot_wildfire_map <- function(obtn_year = 2021, plot_width = 4.3684, plot_height = 3.25) {

  ggplot2::ggplot() +
    ggplot2::geom_sf(data = obtn_boundaries_oregon_state,
                     fill = "transparent") +
    ggplot2::geom_sf(data = obtn_wildfire_data,
                     fill = tfff_orange,
                     color = tfff_orange) +
    ggplot2::theme_void()

  measure_to_plot_name <- stringr::str_glue("Wildfire Map")

  obtn_save_plot(obtn_year, measure_to_plot_name, "Oregon", plot_width, plot_height)

}