R函数返回意外的输入错误

Question

wmedian <- function(directory, day) {
    files_list <- list.files(directory, full.names = TRUE)
    dat <- data.frame()
    for (i in 1:5) {
            dat <- rbind(dat, read.csv(files_list[i]))
    }
    dat_subset <- dat[which(dat[, "Day"] == day), ]
    median(dat_subset[, "Weight"], na.rm = TRUE)
}

当我尝试定义它时，上面的代码在R中返回以下错误＆＃34;＆＃34; rror：意外输入＆＃34; wmedian＆lt; - function（目录，日期）{＆＃34 ;。我现在正在学习R，这段代码直接来自教程。我尝试重写代码，并复制/粘贴代码。两者都返回错误，我无法弄清楚原因。你有什么想法？

此功能的目标是将一组csv文件绑定在一起，这些文件具有列＆＃34;权重＆＃34;和＆＃34; Day＆＃34;。该函数将这些文件绑定在一起，并返回给定日期的权重中位数。

Answer 1

尝试在“文件”按钮上重新打开编码，问题与您的编码有关

Answer 2

我得到了相同的结果（缺少'E'）。

我设法通过一块一块地复制到一个新的编辑器窗口并用手重写零件来解决它，直到它最终都运行完毕。

似乎有一些特殊字符（不知道哪一个）破坏了一些非常基本的代码行，例如： library(ggplot2)失败了。

Answer 3

我也有同样的问题，这是因为文件在每行的末尾只有CR而不是每行末尾的CR / LF。 ＆＃34; E＆＃34;缺少是因为由于某种原因R不知道如何自己处理CR，所以在尝试打印行的过程中，它打印CR，将光标带到行的开头，然后它会在E的顶部打印结束报价。因此，将文件中的CR更改为CR / LF，你应该很好。