detect inch unit differently

brownag · brownag · commit 3f39ccce195b · 2025-09-09T15:17:09.000-07:00
diff --git a/R/parseOSD_functions.R b/R/parseOSD_functions.R
@@ -454,7 +454,8 @@
   })
 
   # convert in -> cm using the first horizon
-  if (hz.data$units[1] %in% c('inches', 'in', 'inch')) {
+  if (!is.na(hz.data$units[1]) &&
+      startsWith(tolower(hz.data$units[1]), "in")) {
     hz.data$top <- round(hz.data$top * 2.54)
     hz.data$bottom <- round(hz.data$bottom * 2.54)
   }

Original file line number	Diff line number	Diff line change
`@@ -454,7 +454,8 @@`
`454`	`454`	`})`
`455`	`455`
`456`	`456`	`# convert in -> cm using the first horizon`
`457`		`- if (hz.data$units[1] %in% c('inches', 'in', 'inch')) {`
	`457`	`+ if (!is.na(hz.data$units[1]) &&`
	`458`	`+ startsWith(tolower(hz.data$units[1]), "in")) {`
`458`	`459`	`hz.data$top <- round(hz.data$top * 2.54)`
`459`	`460`	`hz.data$bottom <- round(hz.data$bottom * 2.54)`
`460`	`461`	`}`