fix st_cast to polygon code

UrbanAnalyst · Feb 28, 2024 · 9dd1419 · 9dd1419
1 parent f7baa26
commit 9dd1419
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ushardship
 Title: Hardship Index from United States Census Data
-Version: 0.0.1.027
+Version: 0.0.1.028
 Authors@R: 
     person(given = "Mark",
            family = "Padgham",

diff --git a/R/hardship-index.R b/R/hardship-index.R
@@ -50,7 +50,12 @@ hs_hardship_index <- function (state = "AZ", year = 2022, survey = "acs5") {
     dat <- dat [index, ]
 
     # Cast to polygons:
-    dat$geometry <- sf::st_cast (dat$geometry, "POLYGON")
+    dat <- sf::st_as_sf (dat)
+    dat <- sf::st_cast (dat, "POLYGON")
+    index <- which (duplicated (dat$GEOID))
+    if (length (index) > 0L) {
+        dat <- dat [-index, ]
+    }
 
     # replace any NA values with weighted neighbour values:
     cli::cli_alert_info (cli::col_yellow ("Imputing missing values ..."))

diff --git a/codemeta.json b/codemeta.json
@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/UrbanAnalyst/us-hardship-index",
   "issueTracker": "https://github.com/UrbanAnalyst/us-hardship-index/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.0.1.027",
+  "version": "0.0.1.028",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",