需要預處理功能輸入

Question

我正在編寫一個帶有一組函數的軟件包，這些函數采用適合模型的對象（例如，來自“ lmt”，“ lavaan”或“ mirt”軟件包的輸出），並根據這些模型計算相關的索引。

此套件中每個函數的第一件事就是將輸入轉換為標准化形式，因此我所有的函數如下所示：

fooIndex <- function(x) {
  x <- standardizerFunction(x)
  # Now, compute the fooIndex
}

在這里，standardizerFunction是S3泛型函數，具有用於所有受支持輸入類的方法。

有比在每個計算索引的函數內部調用standardizerFunction更好的方法來實現此功能嗎？

編輯：我只是想指定我的“問題”是將同一行代碼復制並粘貼到大約20個不同的函數中，這看起來像是一種不良的編程風格，我希望有一個更好的解決方案。

Answer 1

根據iod和Gregor編寫的內容，兩種解決方法是：

（1）要求用戶在運行任何主要功能之前應用standardizerFunction。 如果輸入的類錯誤，則函數將引發錯誤。

（2）由於我們的函數將一直檢查輸入以確保它是正確的類，因此只需使用以下方法將standardizerFunction折疊到輸入檢查部分：

if(!inherits(x, what="YourClass")) standardizerFunction(x)

在我的特定設置中，由於我的大多數用戶對R都不滿意，因此要求他們預先應用standardizerFunction不是最佳選擇，因此我將選擇選項2。