将2列中的高度（以英寸为单位）更改为数字

Question

我的两列高度以英寸为单位，例如5'10。但是，当我尝试转换为字符串时粘贴它们变成一个字符的值时，它会变成一个列表。

H8$height_feet <- transform(H8,height_feet = paste(H8$Height_1_TEXT, H8$Height_2_TEXT, sep = "."))
H8$height_feet <- apply(H8$height_feet, 2, as.numeric)

# A tibble: 6 × 2
  Height_1_TEXT Height_2_TEXT
          <dbl>         <dbl>
1             5             5
2             5            10
3             5             6
4             5             2
5             5             6
6             6             0

理想情况下，这将转换为数字列，其中5.5是第一个值，但是，这可以使用sapply完成，但5.10变为5.1，这是不准确的。