将mpfr对象写入R中的文件

Question

我有一个包含mpfr对象的变量。

> currentPrice <- mpfr(as.character(reduceData[1, 2]))
> currentPrice
1 'mpfr' number of precision  97   bits 
[1] 14.22857142857142857142857143301

如何在不剪切文本文件的情况下将此值写入文本文件并转换为如下所示的简短版本：

> as.numeric(currentPrice)
[1] 14.22857

感谢您的关注。

命令输出输出：

> dput(currentPrice)
new("mpfr"
    , .Data = list(<S4 object of class structure("mpfr1", package = "Rmpfr")>)
)

Answer 1

在print.mpfr包

中使用名为Rmpfr的打印方法

library( 'Rmpfr' )
currentPrice <- mpfr( '14.22857142857142857142857143301', precBits = 260 )

sink( 'filename.txt' )
print(currentPrice, digits = 260)
sink();

您文件中的输出。

# 1 'mpfr' number of precision  260   bits 
# [1] 14.2285714285714285714285714330100000000000000000000000000000000000000000000000037941082567172255283680561956483693602320305788044194384954889318036909905910031240694550294963195196244918820116425935087779567863032980333526378302622106275521218776702880859375