2

我一直在寻找多个来源，试图找出如何在 R 中正确实现类，但我还没有找到我正在寻找的答案。我学会了用java编写代码，所以我对面向对象程序的理解是通过使用编译语言，我可以在.java文档中创建一个类定义，然后在同一个包中的另一个.java文档中导入该类，然后我可以在其中创建对象并调用类方法。R有类似的协议吗？我试图弄清楚如何创建一个类对象并在与我在其中定义类的文件不同的 .R 文档中使用它的方法。

基本上，我正在构建一个脚本来将文件导入 R，然后进行大量数据操作以获得我想要的数据框。我创建了一个处理数据操作的类。此代码位于 ImportClass.R 文件中：

# Class definition for data importing
DataImport <- setRefClass("DataImport", fields = c("startDate"), where = Sys.getenv("dataImportClassEnv") # See the setEnvironment.R file for the value of dataImportClassEnv

# -----------------------------------------------------------------------------
# Example method
# -----------------------------------------------------------------------------
DataImport$methods(fileImport = function(FilePath)
    {
       Method code here
    }
)

我还有一个脚本，在其中设置了我的环境变量。此代码的用户将在其本地计算机上拥有数据，但我不希望在类定义或调用类方法的脚本中对本地文件路径有任何引用。我的偏好是创建一个脚本，以一种可以在我的其他脚本中使用的方式设置文件路径。这就是 setEnvironment.R 的目的

# Sets environment variables
# Input below the location of the .R files on your local machine corresponding to this model. This variable is used to specify the 'location' attribute for the DataImport class.
Sys.setenv(dataImportClassEnv = "/Users/Nel/Documents/Project/Working Docs")

最后，我有一个脚本，我想用它来实际构建我的数据框。该脚本需要从 DataImport 类创建一个对象，因此我需要 source() ImportClass.R 文件。ImportClass.R 也依赖于 setEnvironment.R 文件来运行，所以它也必须是有源的。这是我的脚本 dataScript.R 的大纲：

library(XML)
source("setEnvironment.R", local = TRUE)
source("ImportClass.R", local = TRUE)

# Create instance of DataImport class
importer <- DataImport$new(startDate = "2012-01-01")

# Go on to call methods on 'importer'

问题是在这里调用源函数时出现以下错误。

Error in file(filename, "r", encoding = encoding) : 
  cannot open the connection
In addition: Warning message:
In file(filename, "r", encoding = encoding) :
  cannot open file 'setEnvironment.R': No such file or directory

所有这些文件都保存在同一个位置，“/Users/Nel/Documents/Project/Working Docs”，我不希望在我的 dataScript.R 代码中使用该文件路径。有没有办法让这个工作？

4

1 回答 1

0

这是一个最小的示例，使用最简单的S3类型class，也许足以开始：

从创建file1.R和sourceing 开始：

writeLines('
setClass("myClass")
f1 <- function(x) cat(rep(x,2))
setMethod("print", signature="myClass", definition = f1)
' 
,con="file1.R") 
### note use of alternating apostrophes ' then "
source("file1.R")

a2 <- c(4,5,6)
class(a2) <- "myClass"
print(a2)

给出：

4 5 6 4 5 6>

请注意，要print在setMethod,中使用isGeneric("print") == TRUE。

自定义方法见?setGeneric

于 2013-04-05T05:26:38.107 回答