求大神解决，重酬！！怎么将一个分数的字符串数字转换成数值??!!

怎么将一个分数的字符串数字转换成数值??!!

很有趣的问题。
先说答案：eval(parse(text="1/2"))
解释：这个问题本质上是说，如何计算字符串形式的算式。那么，这样想就比较容易找答案了。先把字符串表示成expression，即parse(text="1/2")；然后计算，eval(parse(text="1/2"))

如图

Whig 发表于 2016-11-25 13:47
很有趣的问题。
先说答案：eval(parse(text="1/2"))
解释：这个问题本质上是说，如何计算字符串形式的算式 ...

厉害

nothk 发表于 2016-11-25 13:51
如图

这想法很好，谢谢兄弟

1. tonumeric <- function(x){
   
2.   x <- sub(" ", "+", x, fixed = TRUE)
   
3.   return(unlist(lapply(x, function(x) eval(parse(text=x)))))
   
4. }
   
5. 
   
6. tonumeric(c("1/2", "2/3", "3/4", "1", "1 1/2"))

复制代码

stzhao 发表于 2016-11-25 13:57

才发现eval(parse())只能求最后一个数，谢谢兄弟的函数