R 计算内置函数中的行数，通过指定数字提取行的范围

假设我有一个内置函数，它的代码非常长，所以我想计算函数中的行数，并通过向某个函数提供数字范围来显示部分代码

为了查看一个函数中有多少行，我使用了

tail（）

函数，它将在每行前面显示数字

  tail(XYZ_Function) 

我尝试使用

head（）

和

tail（）

组合，也就是说，假设我想要函数的第145行到第150行，所以我这样做了

  tail(head(XYZ_Function,n=150),n=5) 

除了结合使用

head（）

和

tail（）

之外，在R中是否还有其他可用的函数，我只需提供对象名和两个数字就可以从该对象提取行

---

非常感谢您在这方面提供的任何帮助。

我不确定您是否正在寻找此帮助，但您可以编写自己的函数：

code_block <- function(x, y, z) { # x = your function, y = lower limit, z = upper limit
  dat <- data.frame(head(x, n = z))
  dat[which(as.numeric(rownames(dat)) >= y  & as.numeric(rownames(dat)) <= z), ]
}


code_block(summary.lm, 12, 20)



> code_block(summary.lm, 10, 20)

10         w <- z$weights                                                  
11         if (is.null(w)) {                                               
12             rss <- sum(r^2)                                             
13         }                                                               
14         else {                                                          
15             rss <- sum(w * r^2)                                         
16             r <- sqrt(w) * r                                            
17         }                                                               
18         resvar <- rss/rdf                                               
19         ans <- z[c("call", "terms", if (!is.null(z$weights)) "weights")]
20         class(ans) <- "summary.lm" 

---

code\u block我也在考虑为此编写自己的函数，因为似乎没有任何内置函数可用。我试过你的功能，效果很好。你能不能在你的函数里放一条语句来显示行数，否则我会编辑的。因为我现在不知道我的范围应该是什么，我的意思是，我不应该把一个数字作为大于行数的上限。谢谢你，现在它工作了@Sowmya S.Manian sry，不知道你在找什么！