## code to build expenditures data
library(tidyverse)
library(here)
library(readr)
builddata <- read_csv(here::here("../../Projects/Minerva grant documents/Military Spending/operations-and-maintenance/data-spend-geocoded-20210428.csv")) %>%
dplyr::rename("spend_construction" = "toa")
readr::write_csv(builddata, "data-raw/builddata.csv")
usethis::use_data(builddata, overwrite = TRUE, internal = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.