Преобразование вектора символов смешанных чисел, дробей и целых чисел в числовой

) Я пытаюсь написать функцию R для конвертировать дроби и смешанные числа в десятичные, например

mixedToFloat <- function(x){
    x <- sub(' ', '+', x, fixed=TRUE)
    return(unlist(lapply(x, function(x) eval(parse(text=x)))))
}

> mixedToFloat(c('1 1/2', '2 3/4', '2/3', '11 1/4', '1'))
[1]  1.5000000  2.7500000  0.6666667 11.2500000  1.0000000

Это работает для большинства случаев, которые я могу придумать, но кажется немного хакерским. Есть ли более стандартный способ сделать это?