v1.5.0

tgoodbody · tgoodbody · commit be8855e75e65 · 2025-06-18T09:59:40.000-07:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: sgsR
 Type: Package
-Version: 1.4.5
+Version: 1.5.0
 License: GPL (>= 3)
 Title: Structurally Guided Sampling
 Authors@R: c(
@@ -61,5 +61,5 @@ Config/testthat/edition: 3
 Config/testthat/parallel: true
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Language: en-US
diff --git a/NEWS.md b/NEWS.md
@@ -1,9 +1,13 @@
+# sgsR 1.5.0
+
+`fixed` - Updated `ggplot2` `plot$labels` field based. From teunbrand #36
+
+`fixed` - Updated parameter `filename` for `sample_nc()` and others to correctly indicate the function outputs samples and not a raster layer. From StumWhere #36
+
 # sgsR 1.4.5
 
 `fixed` - `sample_balanced()` & `sample_existing_balanded` - Updated to match `BalancedSampling v2.0.6` changes to `lcubsestratified`. Thanks to Anton Grafström.
 
-`fixed` - `sample_nc()` - Updated parameter `filename` to correctly indicate the function outputs samples and not a raster layer. From StumWhere #36
-
 # sgsR 1.4.4
 
 `fixed` - `sample_strat()` - Was not taking samples from other strata into account when calculating `mindist` between sample units. This has now been corrected for both `Queinnec` and `random` methods. From Tommasso Trotto #33
diff --git a/R/sample_systematic.R b/R/sample_systematic.R
@@ -148,7 +148,7 @@ sample_systematic <- function(raster,
 
   #--- spin pol and get extent for grid making to cover entire raster ---#
 
-  se <- terra::spin(pol, randRot) |> terra::ext()
+  se <- terra::spin(pol, randRot) %>% terra::ext()
 
   #--- create grid based on outer extents of randomly translated raster extent ---#
 
diff --git a/README.Rmd b/README.Rmd
@@ -92,24 +92,8 @@ names <- c("Martin Queinnec", "Joanne C. White", "Piotr Tompalski", "Andrew T. H
 
 aff <- c("University of British Columbia", "Canadian Forest Service", "Canadian Forest Service", "United States Forest Service", "Swedish University of Agricultural Sciences", "Ministère des Forêts, de la Faune et des Parcs", "Ministry of Northern Development, Mines, Natural Resources and Forestry", "Forsite Consultants Ltd.", "Université de Sherbrooke", " (Retired)	Ministry of Northern Development, Mines, Natural Resources and Forestry")
 
-urls <- c(
-  "https://www.researchgate.net/profile/Martin-Queinnec",
-  "https://scholar.google.ca/citations?user=bqjk4skAAAAJ&hl=en/",
-  "https://scholar.google.ca/citations?user=RtYdz0cAAAAJ&hl=en/",
-  "https://www.fs.usda.gov/research/about/people/ahudak/",
-  "https://scholar.google.com/citations?user=Nx336TQAAAAJ&hl=en/",
-  "https://scholar.google.com/citations?user=wGsKOK8AAAAJ&hl=en/",
-  "https://ca.linkedin.com/in/ian-sinclair-984929a4/",
-  "https://www.signalhire.com/profiles/grant-mccartney%27s-email/99719223/",
-  "https://www.researchgate.net/scientific-contributions/Jean-Francois-Prieur-2142960944",
-  "https://www.researchgate.net/profile/Murray-Woods"
-)
-
 df <- data.frame(Collaborator = names, Affiliation = aff)
 
-
-df$Collaborator <- paste0("[", df$Collaborator, "](", urls, ")")
-
 kable(df)
 ```
 
diff --git a/README.md b/README.md
@@ -41,7 +41,6 @@ To cite `sgsR` use `citation()` from within R with:
 
 ``` r
 print(citation("sgsR"), bibtex = TRUE)
-#> 
 #> To cite package 'sgsR' in publications use:
 #> 
 #>   Goodbody, TRH., Coops, NC., Queinnec, M., White, JC., Tompalski, P.,
@@ -61,17 +60,17 @@ print(citation("sgsR"), bibtex = TRUE)
 #>     doi = {10.1093/forestry/cpac055},
 #>   }
 #> 
-#>   Tristan RH Goodbody, Nicholas C Coops and Martin Queinnec (2023).
-#>   Structurally Guided Sampling. R package version 1.4.4.
+#>   Tristan RH Goodbody, Nicholas C Coops and Martin Queinnec (2025).
+#>   Structurally Guided Sampling. R package version 1.4.6.
 #>   https://cran.r-project.org/package=sgsR.
 #> 
 #> A BibTeX entry for LaTeX users is
 #> 
 #>   @Manual{,
 #>     title = {Structurally Guided Sampling},
 #>     author = {Tristan RH Goodbody and Nicholas C Coops and Martin Queinnec},
-#>     year = {2023},
-#>     note = {R package version 1.4.4},
+#>     year = {2025},
+#>     note = {R package version 1.4.6},
 #>     url = {https://cran.r-project.org/package=sgsR},
 #>   }
 ```
@@ -128,18 +127,18 @@ We are thankful for continued collaboration with academic, private
 industry, and government institutions to help improve `sgsR`. Special
 thanks to to:
 
-| Collaborator                                                                                                  | Affiliation                                                                       |
-|:--------------------------------------------------------------------------------------------------------------|:----------------------------------------------------------------------------------|
-| [Martin Queinnec](https://www.researchgate.net/profile/Martin-Queinnec)                                       | University of British Columbia                                                    |
-| [Joanne C. White](https://scholar.google.ca/citations?user=bqjk4skAAAAJ&hl=en/)                               | Canadian Forest Service                                                           |
-| [Piotr Tompalski](https://scholar.google.ca/citations?user=RtYdz0cAAAAJ&hl=en/)                               | Canadian Forest Service                                                           |
-| [Andrew T. Hudak](https://www.fs.usda.gov/research/about/people/ahudak/)                                      | United States Forest Service                                                      |
-| [Ruben Valbuena](https://scholar.google.com/citations?user=Nx336TQAAAAJ&hl=en/)                               | Swedish University of Agricultural Sciences                                       |
-| [Antoine LeBoeuf](https://scholar.google.com/citations?user=wGsKOK8AAAAJ&hl=en/)                              | Ministère des Forêts, de la Faune et des Parcs                                    |
-| [Ian Sinclair](https://ca.linkedin.com/in/ian-sinclair-984929a4/)                                             | Ministry of Northern Development, Mines, Natural Resources and Forestry           |
-| [Grant McCartney](https://www.signalhire.com/profiles/grant-mccartney%27s-email/99719223/)                    | Forsite Consultants Ltd.                                                          |
-| [Jean-Francois Prieur](https://www.researchgate.net/scientific-contributions/Jean-Francois-Prieur-2142960944) | Université de Sherbrooke                                                          |
-| [Murray Woods](https://www.researchgate.net/profile/Murray-Woods)                                             | (Retired) Ministry of Northern Development, Mines, Natural Resources and Forestry |
+| Collaborator | Affiliation |
+|:---|:---|
+| Martin Queinnec | University of British Columbia |
+| Joanne C. White | Canadian Forest Service |
+| Piotr Tompalski | Canadian Forest Service |
+| Andrew T. Hudak | United States Forest Service |
+| Ruben Valbuena | Swedish University of Agricultural Sciences |
+| Antoine LeBoeuf | Ministère des Forêts, de la Faune et des Parcs |
+| Ian Sinclair | Ministry of Northern Development, Mines, Natural Resources and Forestry |
+| Grant McCartney | Forsite Consultants Ltd. |
+| Jean-Francois Prieur | Université de Sherbrooke |
+| Murray Woods | (Retired) Ministry of Northern Development, Mines, Natural Resources and Forestry |
 
 ## Funding :raised_hands:
 
diff --git a/inst/WORDLIST b/inst/WORDLIST
@@ -12,7 +12,6 @@ CRC
 CRS
 Centre's
 Centre’s
-Centroid
 Codecov
 DOI
 Faune
@@ -22,7 +21,6 @@ Forsite
 Forêts
 Geosciences
 Github
-Grafstrom
 Grafström
 Gregoire
 Hijmans
@@ -61,6 +59,7 @@ SpatRaster
 SpatialPointsDataFrame
 Spatraster
 Springer
+StumWhere
 Tommaso
 Tommasso
 Tompalski
@@ -79,8 +78,6 @@ balancedsampling
 boreal
 cLHS
 cellsize
-centroid
-centroids
 clhs
 colour
 coloured
@@ -129,6 +126,7 @@ srasters
 stratifications
 subsampled
 tesselations
+teunbrand
 th
 tibble
 underreprented
diff --git a/man/sample_balanced.Rd b/man/sample_balanced.Rd
diff --git a/man/sample_existing_balanced.Rd b/man/sample_existing_balanced.Rd
diff --git a/man/sample_nc.Rd b/man/sample_nc.Rd
diff --git a/sgsR.Rproj b/sgsR.Rproj
@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: a61c6539-9873-4095-9eb6-3b2c496b9fbd
 
 RestoreWorkspace: Default
 SaveWorkspace: Default
diff --git a/vignettes/sampling.Rmd b/vignettes/sampling.Rmd
@@ -70,7 +70,7 @@ a <- c("`sample_srs()`", "`sample_systematic()`", "`sample_strat()`", "`sample_s
 
 d <- c("Simple random", "Systematic", "Stratified", "Systematic Stratified", "Nearest centroid", "Conditioned Latin hypercube", "Balanced sampling", "Adapted hypercube evaluation of a legacy sample", "Sub-sampling an `existing` sample")
 
-s <- c("", "", "[Queinnec, White, & Coops (2021)](https://www.sciencedirect.com/science/article/pii/S0034425721002303)", "", "[Melville & Stone (2016)](https://doi.org/10.1080/00049158.2016.1218265)", "[Minasny & McBratney (2006)](https://www.sciencedirect.com/science/article/pii/S009830040500292X?via%3Dihub)", "[Grafström, A. Lisic, J (2018)](http://www.antongrafstrom.se/balancedsampling/)", "[Malone, Minasny, & Brungard (2019)](https://peerj.com/articles/6451/)", "")
+s <- c("", "", "[Queinnec, White, & Coops (2021)](https://doi.org/10.1016/j.rse.2021.112510)", "", "[Melville & Stone (2016)](https://doi.org/10.1080/00049158.2016.1218265)", "[Minasny & McBratney (2006)](https://doi.org/10.1016/j.cageo.2005.12.009)", "[Grafström, A. Lisic, J (2018)](http://www.antongrafstrom.se/balancedsampling/)", "[Malone, Minasny, & Brungard (2019)](https://doi.org/10.7717/peerj.6451)", "")
 
 urls <- c("#srs", "#systematic", "#sstrat", "#sysstrat", "#nc", "#clhs", "#balanced", "#ahels", "#samp-existing")
 

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,5 @@`
`1`	`1`	`Version: 1.0`
	`2`	`+ProjectId: a61c6539-9873-4095-9eb6-3b2c496b9fbd`
`2`	`3`
`3`	`4`	`RestoreWorkspace: Default`
`4`	`5`	`SaveWorkspace: Default`