将 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 输出如下：

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

Answer 1

使用 Rmpfr 包中名为 print.mpfr 的打印方法

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

将 mpfr 对象写入 R 中的文件

Write mpfr objects to file in R

r

file

mpfr

output