fix: GPKG compatibility

brownag · brownag · commit 25938bbb2914 · 2026-04-30T17:15:20.000-07:00
diff --git a/R/get_component_from_GDB.R b/R/get_component_from_GDB.R
@@ -325,7 +325,7 @@ get_mapunit_from_GDB <- function(dsn = "gNATSGO_CONUS.gdb",
     }
   )
   pmg <- sf::read_sf(dsn = dsn, query = qry, as_tibble = FALSE, fid_column_name = "copmgrpkey")
-  
+  pmg$copmgrpkey.1 <- NULL
   
   # remove duplicate rvindicators
   dat <- as.data.frame.matrix(table(pmg$cokey, pmg$rvindicator))

Original file line number	Diff line number	Diff line change
`@@ -325,7 +325,7 @@ get_mapunit_from_GDB <- function(dsn = "gNATSGO_CONUS.gdb",`
`325`	`325`	`}`
`326`	`326`	`)`
`327`	`327`	`pmg <- sf::read_sf(dsn = dsn, query = qry, as_tibble = FALSE, fid_column_name = "copmgrpkey")`
`328`		`-`
	`328`	`+ pmg$copmgrpkey.1 <- NULL`
`329`	`329`
`330`	`330`	`# remove duplicate rvindicators`
`331`	`331`	`dat <- as.data.frame.matrix(table(pmg$cokey, pmg$rvindicator))`