通过 RStudio 更改函数的源代码而不创建新函数 [重复]

Question

我需要更改包中名为 mirt 的函数中的几行。

该函数是fscores.internal，不是主函数，您可以使用edit 或fix 更改代码行。

如何在 RStudio 中做到这一点？

我尝试了以下操作：

library(mirt)
data(LSAT7)
LSAT7=expand.table(LSAT7)
mod=mirt(LSAT7, 1,itemtype = '3PL')
fscor=fscores(object = mod,method = "ML",response.pattern = c(1,NA,NA,NA,NA),theta_lim = c(-4, 4))


fscor
     Item.1 Item.2 Item.3 Item.4 Item.5  F1 SE_F1
[1,]      1     NA     NA     NA     NA Inf    NA

这是最终输出。我需要“theta_lim[2]”而不是“Inf”作为 F1 的输出，当您将 Inf 替换为 theta_lim[2] 和 -Inf 替换为 theta_lim[1] 时可以获得（分别在第 278 和 280 行，在 fscores .internal 代码。这是我要做的唯一更改。

使用fixInNamespace("fscores.internal", "mirt")后

出现一个窗口，其中包含：

function (object, ...) 
standardGeneric("fscores.internal")

（fixInNamespace 没有帮助）

使用后

myfscores.internal <- function() { ... }
assignInNamespace("fscores.internal", myfscores.internal, "mirt")

运行时出现以下错误

fscor=fscores(object = mod,method = "ML",response.pattern = c(1,1,1,1,1),theta_lim = c(-4, 4))



## Error in .local(object, ...) : could not find function "ExtractGroupPars"

然后我单独编译ExtractGroupPars函数。

然后出局是

> fscor=fscores(object = mod,method = "ML",response.pattern = c(1,1,1,1,1),theta_lim = c(-4, 4))
Error in .local(object, ...) : could not find function "rotateLambdas"

在这之后我编译了rotateLambdas函数

我跑了

fscor=fscores(object = mod,method = "ML",response.pattern = c(1,1,1,1,1),theta_lim = c(-4, 4))

然后我得到以下错误：

Error in matrix(rep(sqrt(1 - h2), ncol(F)), ncol = ncol(F)) : 
  non-numeric matrix extent
Called from: .rs.breakOnError(TRUE)

不知道之后该怎么办。

Answer 1

您可以使用assignInNamespace 重写包命名空间内的函数。在这种情况下，您将定义一个新函数并分配给 mirt 命名空间：

myfscores.internal <- function() { ... }
assignInNamespace("fscores.internal", myfscores.internal, "mirt")

注意：如果从包命名空间导出 fscores.internal，行为可能会有所不同。