detect inch unit differently

brownag · brownag · commit 6cfb41f4a512 · 2025-09-09T15:07:47.000-07:00
diff --git a/R/parseOSD_functions.R b/R/parseOSD_functions.R
@@ -454,7 +454,7 @@
   })
 
   # convert in -> cm using the first horizon
-  if (hz.data$units[1] %in% c('inches', 'in', 'inch')) {
+  if (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,7 @@`
`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 (startsWith(tolower(hz.data$units[1]), "in")) {`
`458`	`458`	`hz.data$top <- round(hz.data$top * 2.54)`
`459`	`459`	`hz.data$bottom <- round(hz.data$bottom * 2.54)`
`460`	`460`	`}`