计算字符串和空单元格

我有一个数据表,其中一列由缺失的单元格和字符串组成,如 7 1/4 INCHES , 1/4 INC 9/16 INCH , 1 3/4 INCHES , 1 13/16 INCHES , 20 INCHES . 我想去掉空格和INC/INCH/INCH(字符串拆分),并通过将它们转换为类似数字的值来计算字符串的其余部分 7+1/4=7.25 .

library(data.table)
data<-data.table(variable = c("", "", "7 1/4 INCHES", "1/4 INC", "9/16 INCH", "1 3/4 INCHES", "", "1 13/16 INCHES", "20 INCHES", "", ""))
#Assigning 0s to empty cells
data$variable[data$variable == "" ] = 0
#Getting rid of INCH, INCHES and INCH
data$variable<-gsub("[[:space:]][A-z]*$", "", data$variable)
#Adding "+" instead of whitespace  (for summation), like 7+1/4 instead of 7 1/4
data$variable<-gsub( " ", "+", data$variable)
data$variable<-eval(parse(text=data$variable))

eval 功能正常工作。你能帮我一下吗?

编辑:

data$variable<-sapply(data$variable, function(x) eval(parse(text=x)))

我使用上面的线使其工作。然而,这仍然不是一种有效的方法。