Skip to contents

NOAA's Hazard Mapping System (HMS) operates daily in near real-time by outlining the smoke polygon of each distinct smoke plume and classifying it as "Heavy", "Light", or "Medium" based on its apparent thickness.

Usage

get_daily_smoke_data(x, ...)

Arguments

x

Date vector; files are organized and retrieved by date for all of CONUS

...

passed to stow::stow(). The package and subdir arguments are fixed by geomarker.

Value

a list of daily tibbles, each with columns for geometry and density

Details

Daily files for HMS smoke data are used again instead of re-downloading, unless there is an updated version of the daily data available. For more details, see https://www.ospo.noaa.gov/products/land/hms.html#about.

Examples

local({
  withr::local_envvar(
    R_USER_DATA_DIR = fs::path_package("geomarker", "gmrkr--8841"),
    R_GEOMARKER_NO_DOWNLOAD = "true"
  )
  dates <- as.Date(c("2024-02-09", "2024-06-10", "2024-06-11", "2024-06-12"))
  print(get_daily_smoke_data(dates))
})
#> Using managed local copy: /home/runner/work/_temp/Library/geomarker/gmrkr--8841/R/geomarker/stow/get_daily_smoke_data/97d39e30469426bf--hms_smoke20240209.zip
#> Using managed local copy: /home/runner/work/_temp/Library/geomarker/gmrkr--8841/R/geomarker/stow/get_daily_smoke_data/2c9288e9e94a0205--hms_smoke20240610.zip
#> Using managed local copy: /home/runner/work/_temp/Library/geomarker/gmrkr--8841/R/geomarker/stow/get_daily_smoke_data/2c9288e9e94a0205--hms_smoke20240611.zip
#> Using managed local copy: /home/runner/work/_temp/Library/geomarker/gmrkr--8841/R/geomarker/stow/get_daily_smoke_data/2c9288e9e94a0205--hms_smoke20240612.zip
#> $`2024-02-09`
#> # A tibble: 0 × 2
#> # ℹ 2 variables: geometry <s2_geography>, density <ord>
#> 
#> $`2024-06-10`
#> # A tibble: 2 × 2
#>   geometry                                                               density
#>   <s2_geography>                                                         <ord>  
#> 1 POLYGON ((-84.9401312 39.871128, -84.9401312 38.5439087, -83.5922642 … Light  
#> 2 POLYGON ((-84.9401312 39.871128, -84.9401312 38.5439087, -83.5922642 … Light  
#> 
#> $`2024-06-11`
#> # A tibble: 1 × 2
#>   geometry                                                               density
#>   <s2_geography>                                                         <ord>  
#> 1 POLYGON ((-84.9401312 39.871128, -84.9401312 38.5439087, -83.5922642 … Light  
#> 
#> $`2024-06-12`
#> # A tibble: 2 × 2
#>   geometry                                                               density
#>   <s2_geography>                                                         <ord>  
#> 1 POLYGON ((-84.9401312 39.871128, -84.9401312 38.5439087, -83.5922642 … Light  
#> 2 POLYGON ((-84.9401312 39.871128, -84.9401312 38.5439087, -83.5922642 … Light  
#>