在R中使用excel和r2xcel

在R中使用excel和r2xcel,r,R,我创建了一个函数,它接受一个excel文件,并使用r2excel包将其拆分为更小的文件。基本上,该函数读取包含我们地区所有学生的excel文件,并为学校中的每位教师创建单独的文件(例如班级列表)。它在一个excel文件中似乎工作得很好,然而,当我在另一个excel文件上测试时,它仍然生成了一些文件,但突然它停止了。我的解决方案是删除一些导致问题的行,然后再次运行该函数。但这只是暂时的解决办法。 下面是我收到的错误 .jnew(“java/io/File”,File)中出错: java.lang.

我创建了一个函数,它接受一个excel文件,并使用r2excel包将其拆分为更小的文件。基本上,该函数读取包含我们地区所有学生的excel文件,并为学校中的每位教师创建单独的文件(例如班级列表)。它在一个excel文件中似乎工作得很好,然而,当我在另一个excel文件上测试时,它仍然生成了一些文件,但突然它停止了。我的解决方案是删除一些导致问题的行,然后再次运行该函数。但这只是暂时的解决办法。 下面是我收到的错误

.jnew(“java/io/File”,File)中出错: java.lang.NoSuchMethodError:

这是我的密码:

  df <- read.csv("bigfile.csv")
extract <- function(name){
  temp_df <- subset(df, `Teacher Name` == name)
  temp_df <- temp_df[order(temp_df$Class, temp_df$`Student Name`),]
       wb <- createWorkbook(type="xlsx") 
    sheet <- createSheet(wb, sheetName = "Class List")
             xlsx.addTable(wb, sheet, temp_df, fontColor="darkblue", row.names=FALSE, startCol=1,fontSize=11)
             xlsx.addLineBreak(sheet,0)
filename <- paste(unique(temp_df$`School Name`), unique(temp_df$`Teacher Name`),sep=" ")
filename <- paste(filename, " 2D.xlsx", sep="")
            saveWorkbook(wb, filename)  
}
lapply(unique(df$`Teacher Name`), extract)

df你能把文件上传到dropbox或类似的东西上吗?你能不能也显示一个最小的代码片段?我很难将你的描述与代码相匹配。我没有看到任何excel文件的“读取”,而是显示您试图连续创建单独的文件。我遇到的另一个问题是GitHub上的r2excel包在其索引页中没有列出任何这些函数。你确定你给我们提供了你的设置的准确图片吗?我猜您实际上正在使用
xlsx
包。你真的写了这段代码吗???r2excel依赖于xlsx软件包…所以xlsx中的一些函数也在r2excel中。你能从你的csv文件中提供几行吗?最好是显示所述错误的部分?我的excel文件包括以下变量:学校名称、教师姓名、学生、性别、ESL、班级。看起来是这样的:学校A,简D,约翰D,F,是的,数学。你能把文件上传到dropbox或类似的东西吗?你能不能也显示一个最小的代码片段?我很难将你的描述与代码相匹配。我没有看到任何excel文件的“读取”,而是显示您试图连续创建单独的文件。我遇到的另一个问题是GitHub上的r2excel包在其索引页中没有列出任何这些函数。你确定你给我们提供了你的设置的准确图片吗?我猜您实际上正在使用
xlsx
包。你真的写了这段代码吗???r2excel依赖于xlsx软件包…所以xlsx中的一些函数也在r2excel中。你能从你的csv文件中提供几行吗?最好是显示所述错误的部分?我的excel文件包括以下变量:学校名称、教师姓名、学生、性别、ESL、班级。看起来是这样的:A学校,简D,约翰D,F,是的,数学。