r-project创建了一个数据框架函数，可能在某个地方也使用了*application

Question

试图创建一个函数，该函数在目录中查找一堆CSV文件，然后以文件ID为参数，输出一个表(实际上是数据帧-R语言的新内容(，其中有两列，一列标题ID对应的ID参数，第二列将是该文件中的行数。

这些文件的标题都是001.csv-322.csv

例如，输出看起来像列标题：ID，第一条记录：001(源自001.csv(，第二列：标题"；行数"；，第一个记录

函数如下所示：myfunction(directory,id)目录是csv文件所在的文件夹，id可以是一个数字(或矢量？(，例如简单的1、9或100，也可以是像200:300这样的矢量。

在后面的情况下，200:300，输出将是一个有100行的表，其中第一行将是200，其中有10行数据

到目前为止：

complete <- function(directory,id = 1:332) {
    # create an object to help read the appropriate csv files later int he function
    
     csvfilespath <- sprintf("/Users/gcameron/Desktop/%s/%03d.csv", directory, id)
     colID <- sprintf('%03d', id)
    # now, how do I tell R to create a table with 2 columns titled ID and countrows?
    # Now, how would I take each instance of an ID and add to this table the id and         count of rows in each?
}

如果这看起来真的很基本，我很抱歉。我正在学习的教程进展很快，我看过每一次视频讲座，也做了大量的研究。到目前为止，SO是我最喜欢的资源，我通过使用它学习得更好。也许是因为它是个性化的，直接适用于我的即时任务。我希望我的问题也能让其他正在学习R.的人受益

基于以下反馈

我现在有以下脚本：

complete <- function(directory,id = 1:332) {
    csvfiles <- sprintf("/Users/gcameron/Desktop/%s/%03d.csv", directory, id)
    nrows <- sapply( csvfiles, function(f) nrow(read.csv(f)))
    data.frame(ID=id, countrows=sapply(csvfiles,function(x) length(count.fields(x)))
    }

这看起来像是我在正确的轨道上吗？我收到一个错误"；错误：中出现意外的"｝"："data.frame(ID=ID，countrows=sapply(csvfiles，function(x(length(count.fields(x(((}">

我看不出是否有多余的"｝"是从哪里来的？

Answer 1

data.frame(ID=id, countrows=sapply(csvfilepath, function(x) length(count.fields(x))))