将mpfr对象写入R中的文件答案

【问题标题】：Write mpfr objects to file in R将mpfr对象写入R中的文件
【发布时间】：2017-02-27 07:43:39
【问题描述】：

我有一个变量，其中包含 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

感谢您的关注。

Command dput 输出如下：

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

【问题讨论】：

sink( filename.txt ); cat(as.numeric(currentPrice)); sink();
@Sathish 不，伙计。您的解决方案将短值（14.22857）写入文件，但我需要长版本（14.22857142857142857142857143301）
@Sathish 变量类型 - 列表、类 - mpfr
我不明白。请再解释一下。

标签： r file output mpfr

【解决方案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

【讨论】：

如何在没有附加信息的情况下只打印值？
我不知道如何抑制标题。也许您可以通过删除标题来发布该文件。