From cfc27fa908a4a898b01142d49c18fc5679c91938 Mon Sep 17 00:00:00 2001
From: Insang Song <insang.song@nih.gov>
Date: Thu, 22 Feb 2024 14:36:42 -0500
Subject: [PATCH] 0.4.0 - versioning - summarize_aw example fix

---
 DESCRIPTION               | 7 +++----
 R/processing.R            | 2 +-
 chopin_rmarkdown_litr.rmd | 5 +++--
 man/summarize_aw.Rd       | 2 +-
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 18688615..ac9fa467 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,6 @@
 Package: chopin
-Title: CHOPIN: Computation for Climate and Health research On Parallelized
-    INfrastructure
-Version: 0.3.1.20240222
+Title: CHOPIN: Computation for Climate and Health research On Parallelized INfrastructure
+Version: 0.4.0.20240222
 Authors@R: c(
     person("Insang", "Song", , "geoissong@gmail.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-8732-3256")),
@@ -50,4 +49,4 @@ Suggests:
 VignetteBuilder: knitr
 Config/testthat/edition: 3
 LitrVersionUsed: 0.9.0
-LitrId: 4ed07b0d423d2783ef09f322b21835c9
+LitrId: 8de85267530c386fcc1fe35da7c3d662
diff --git a/R/processing.R b/R/processing.R
index 8d96ba88..f2f48b0c 100644
--- a/R/processing.R
+++ b/R/processing.R
@@ -670,7 +670,7 @@ The result may not be accurate.\n",
 #' sf::st_crs(pp) <- "EPSG:5070"
 #' ppb <- sf::st_buffer(pp, nQuadSegs=180, dist = units::set_units(20, "km"))
 #'
-#' system.time(ppb_nc_aw <- summarize_aw(ppb, nc, "id"))
+#' system.time(ppb_nc_aw <- summarize_aw(ppb, nc, c("BIR74", "BIR79"), "id"))
 #' summary(ppb_nc_aw)
 #' #### Example of summarize_aw ends ####
 #' @importFrom terra expanse
diff --git a/chopin_rmarkdown_litr.rmd b/chopin_rmarkdown_litr.rmd
index 6a40a53e..befe19d2 100644
--- a/chopin_rmarkdown_litr.rmd
+++ b/chopin_rmarkdown_litr.rmd
@@ -21,7 +21,7 @@ usethis::create_package(
   path = ".",
   fields = list(
     Package = params$package_name,
-    Version = "0.3.1.20240222",
+    Version = "0.4.0.20240222",
     Title = "CHOPIN: Computation for Climate and Health research On Parallelized INfrastructure",
     Description = "It enables users with basic understanding on geospatial data and sf and terra functions to parallelize geospatial operations for geospatial exposure assessment modeling and covariate computation. Parallelization is done by dividing large datasets into sub-regions with regular grids and data's own hierarchy. A computation over the large number of raster files can be parallelized with a chopin function as well.",
     `Authors@R` = c(
@@ -2711,7 +2711,7 @@ testthat::test_that("SEDC are well calculated.", {
 #' sf::st_crs(pp) <- "EPSG:5070"
 #' ppb <- sf::st_buffer(pp, nQuadSegs=180, dist = units::set_units(20, "km"))
 #'
-#' system.time(ppb_nc_aw <- summarize_aw(ppb, nc, "id"))
+#' system.time(ppb_nc_aw <- summarize_aw(ppb, nc, c("BIR74", "BIR79"), "id"))
 #' summary(ppb_nc_aw)
 #' #### Example of summarize_aw ends ####
 #' @importFrom terra expanse
@@ -4058,6 +4058,7 @@ knitr::knit("./README.Rmd", "./README.md")
 system(paste0("cp -r ./chopin/* ."))
 # Sys.sleep(1)
 system("rm -r ./chopin")
+system("rm ./chopin_rmarkdown_litr.html")
 # knit manually
 # knitr::knit("./README.Rmd", "./README.md")
 
diff --git a/man/summarize_aw.Rd b/man/summarize_aw.Rd
index 2812b15b..bf09b9cc 100644
--- a/man/summarize_aw.Rd
+++ b/man/summarize_aw.Rd
@@ -46,7 +46,7 @@ pp[["id"]] <- seq(1, nrow(pp))
 sf::st_crs(pp) <- "EPSG:5070"
 ppb <- sf::st_buffer(pp, nQuadSegs=180, dist = units::set_units(20, "km"))
 
-system.time(ppb_nc_aw <- summarize_aw(ppb, nc, "id"))
+system.time(ppb_nc_aw <- summarize_aw(ppb, nc, c("BIR74", "BIR79"), "id"))
 summary(ppb_nc_aw)
 #### Example of summarize_aw ends ####
 }