sprintf的格式無效 '％d'

Question

這工作：

> sprintf('%d', c(1, 1.5)) 
[1] "1" "1" 

，這並不：

> sprintf('%d', c(1.5, 1)) 
Error in sprintf("%d", c(1.5, 1)) : 
    invalid format '%d'; use format %f, %e, %g or %a for numeric objects 

爲什麼？

Answer 1

這實際上是一個非常有趣的問題。首先，%d代表整數。如果可能的話，矢量參數將被回收，但如果它是c(1.5, 1)，則sprintf()試圖用1.5（不是整數）代替%d時將失敗。

我認爲這可能與這樣的事實中的R整數和雙是數字模式，例如：

storage.mode(c(1.5, 1)) 
# [1] "double" 
storage.mode(c(1, 1.5)) 
# [1] "double" 
mode(c(1,1.5)) 
# [1] "numeric" 
mode(c(1.5,1)) 
# [1] "numeric" 

因此，兩個向量應該被存儲爲兩倍。關於向量R language definition和? numeric文檔中的更多信息：

潛在的困惑是，R已經使用模式「數字」是指「雙或整數」」

我可能已經找到了在the underlying C code哪一行解釋正在發生的事情：

if(TYPEOF(_this) == REALSXP) { 
double r = REAL(_this)[0]; 
if((double)((int) r) == r) 
_this = coerceVector(_this, INTSXP); 

此代碼執行以下操作：如果載體類型是REALSXP（這意味着數值）再轉換矢量的第一個成員到double r。然後將r轉換爲整數，然後加倍，如果字節仍然相同，則將整個向量轉換爲INTSXP。重要的是，這段代碼只檢查向量的第一個元素;如果該元素可以被強制爲整數，則整個向量被強制，否則代碼會給出錯誤。

爲了檢驗這一假設，人們可以用自定義sprintf()，其中double r = REAL(_this)[0];改爲double r = REAL(_this)[1];編譯R和現在還是不測試是否c(1.5, 1)作品。