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

印刷法を用いて、あなたのファイルにprint.mpfr

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

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

パッケージRmpfrでの出力と呼ばれます。

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