Skip to content

updating to 2024 data #71

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
wcurrangroome merged 1 commit into from
May 20, 2026
Merged

updating to 2024 data #71

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
23 changes: 12 additions & 11 deletions R/get_sheldus.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -19,8 +19,8 @@
#' \item{year}{Year of the hazard event(s).}
#' \item{month}{Month of the hazard event(s).}
#' \item{hazard}{Type of hazard (e.g., "Flooding", "Hurricane/Tropical Storm").}
#' \item{damage_property}{Property damage in 2023 inflation-adjusted dollars.}
#' \item{damage_crop}{Crop damage in 2023 inflation-adjusted dollars.}
#' \item{damage_property}{Property damage in 2024 inflation-adjusted dollars.}
#' \item{damage_crop}{Crop damage in 2024 inflation-adjusted dollars.}
#' \item{fatalities}{Number of fatalities.}
#' \item{injuries}{Number of injuries.}
#' \item{records}{Number of individual events aggregated into this observation.}
Expand All @@ -35,8 +35,8 @@
get_sheldus = function(
file_path = file.path(
get_box_path(),"hazards", "sheldus",
"SHELDUS_23.0_12312023_AllCounties_CountyAggregate_YearMonthHazard_2023USD",
"direct_loss_aggregated_output_24075.csv")) {
"SHELDUS_24.0_12312024_AllCounties_CountyAggregate_YearMonthHazard_2024USD",
"direct_loss_aggregated_output_30457.csv")) {

## is the file path valid/accessible?
if (!file.exists(file_path)) {
Expand Down Expand Up @@ -109,9 +109,9 @@ get_sheldus = function(
year,
month,
hazard,
damage_property = property_damage_adjusted_2023,
damage_property = property_damage_adjusted_2024,
# damage_property_per_capita = property_damage_per_capita,
damage_crop = crop_damage_adjusted_2023,
damage_crop = crop_damage_adjusted_2024,
# damage_crop_per_capita = crop_damage_per_capita,
dplyr::matches("injuries|fatalities"),
records) |>
Expand Down Expand Up @@ -142,22 +142,23 @@ get_sheldus = function(
df4 = df3 %>%
dplyr::mutate(
unique_id = uuid::UUIDgenerate(n = nrow(df3))) %>%
dplyr::select(unique_id, dplyr::everything())
dplyr::select(unique_id, dplyr::everything()) %>%
dplyr::select(-allocation_factor)

message(stringr::str_c(
"The unit of observation is: county x year x month x hazard. ",
"The `unique_id` field is a unique identifier for each observation. ",
"Not all counties have observations for each month x year x hazard. ",
"That is, only counties with a disaster event have an observation for a given month x year x hazard. ",
"The `records` field reflects the number of events that were aggregated to ",
"calculate the values reflected in the given observation.",
"All dollar-denominated values are in 2023 dollars."))
"calculate the values reflected in the given observation. ",
"All dollar-denominated values are in 2024 dollars."))

return(df4)
}

utils::globalVariables(c(
"state_name", "county_fips", "unique_id", "GEOID", "county_name", "year", "month",
"damage_property", "damage_property_per_capita", "damage_crop", "property_damage_adjusted_2023",
"damage_crop_per_capita", "records", "benchmark_geographies", "crop_damage_adjusted_2023",
"damage_property", "damage_property_per_capita", "damage_crop", "property_damage_adjusted_2024",
"damage_crop_per_capita", "records", "benchmark_geographies", "crop_damage_adjusted_2024",
"STATE", "COUNTY", "."))
Loading