add sanity check

edzer · edzer · commit 1b0e9d8af35b · 2025-01-19T11:45:09.000+01:00
diff --git a/src/sfc-sfg.cpp b/src/sfc-sfg.cpp
@@ -49,6 +49,9 @@ List sfc_unique_sfg_dims_and_types(List sfc) {
 			class_dim.insert("XYZM");
 		}
 		
+		if (!Rf_inherits(item, "sfg"))
+			stop("object(s) should be of class 'sfg'");
+
 		if (Rf_inherits(item, "POINT")) {
 			class_type.insert("POINT");
 			continue;

Original file line number	Diff line number	Diff line change
`@@ -49,6 +49,9 @@ List sfc_unique_sfg_dims_and_types(List sfc) {`
`49`	`49`	`class_dim.insert("XYZM");`
`50`	`50`	`}`
`51`	`51`
	`52`	`+ if (!Rf_inherits(item, "sfg"))`
	`53`	`+ stop("object(s) should be of class 'sfg'");`
	`54`	`+`
`52`	`55`	`if (Rf_inherits(item, "POINT")) {`
`53`	`56`	`class_type.insert("POINT");`
`54`	`57`	`continue;`