阅读我项目中每个R脚本的第一行

Question

我正在尝试组织一个不断发展的R项目，我的团队一直在合作。我最初的想法是将所有脚本名称放入列表

$("td").each(function() {
  console.log( $(this).prop('data-date') + ": " + $(this).children().length );
});

并将其放入电子表格中，以便我可以查看哪些脚本已过时，以及哪些脚本可能构成单独的项目。

值得庆幸的是，大多数脚本在顶部都有一行注释，它总结了脚本内容。

是否有R方法将所有第一行注释放在数据帧中？即在R中是否有一个函数用于从文件名中提取代码行？

Answer 1

您可以通过readLines(n = 1)阅读文件的第一行。要读取所有第一行，请使用apply循环。然后，您可以将结果放入数据框中。

data.frame(comment = sapply(x, readLines, n = 1))

其中x是文件名的字符向量。

Answer 2

尝试以下方法：

myRFiles = list.files(pattern = "*.R")
firstLines = lapply(myRFiles, FUN =  read.table, nrows = 1, sep = "\n")
df = do.call(rbind, firstLines)

myRFiles包含所有R文件（更改案例的模式）。

使用read.table，您可以阅读第一行（nrows=1）并使用换行符（\n）作为分隔符，因此每个文件只读取一列。

最后，将do.call和rbind

加入到一个数据框中