r6 - 優文庫

r6

0熱度

1回答

假設我有： Foo <- R6::R6Class("Foo") Bar1 <- R6::R6Class("Bar1", inherit = "Foo") Bar2 <- R6::R6Class("Bar2", inherit = "Foo") f <- Foo$new() 答：我可以這樣做 R6::findChildren("Foo") [1] "Bar1" "Bar2" （我想

0熱度

1回答

如何由字符向量

查找一個R6對象屬性我有以下的類，它開始如下： dataSeries <- R6Class("dataSeries", public = list( geoAccession = NULL, species = NULL, tissue = NULL, seuratObjectPath = NULL,

0熱度

1回答

移動源代碼到一個單獨的文件改變了方法返回的值

我正在寫一個類定義，將會非常長，我想從單獨的文件中獲取方法的代碼。大多數情況下，這似乎有效，但在嘗試返回data.frame時遇到了一些奇怪的事情。當代碼直接寫入類定義時，data.frame會正常返回。當它來源時，返回的是長度爲2的列表，其中第一個元素（名爲value）包含data.frame，第二個元素（名爲visible）包含原子邏輯TRUE。如何讓方法只返回data.frame，而將方法

2熱度

1回答

在R中，如何檢查兩個變量是否引用相同的R6對象？

identical()函數似乎給出了正確答案，但文檔沒有明確地討論對象引用。在文檔中最接近音符是：檢查兩個大的，複雜的對象相等，如果對象相同或接近，但代表了完全獨立副本需要更長的時間。使用相同的（）的一些例子： QuickClass <- R6::R6Class("QuickClass", public = list( initialize = function(x) {

0熱度

1回答

R6錯誤，當功能

library(R6) pre <- R6Class("pre", public = list( dbl = NULL, initialize = function(){}, functionA = function(){}, functionB = function() {} )) 以下功能是我想要的代碼： FunctionA() { FunctionB()

1熱度

2回答

是否可以更改R6功能的值？（良好風格的OOP編程？）

我來自C++背景，試圖利用它來進行R6包的R OOP編程。在編寫大型OOP代碼時，請考慮以下典型情況。 - 你有一個類，其中你有幾個（可能很多）的功能，其中的每一個也可能是相當複雜，與很多行代碼： # file CTest.R cTest <- R6Class( "CTest", public = list( z = 10, fDo1 = function

1熱度

1回答

如何解釋在購買R6課程時「元素.....必須命名」的錯誤？

從chernan's sample REST queries採取代碼片段用來定義一個類R6一個私有方法，兩個公共屬性和構造函數： library(R6) library(RCurl) library(RJSONIO) Symbol <- R6Class("Symbol", private = list( # # define a generic function

1熱度

1回答

當變量名稱未知時，訪問R6類變量是否會提前？

這裏有一個簡單的代碼，這說明想什麼，我來實現： require(R6) cTest <- R6Class( "CTest", public = list( a = 10, b=20, c=30, printX = function(x) { print(self[x]) } ) ) #"CTest" myClass <- cTes

9熱度

2回答

歸檔R6類和RStudio

ř包內的方法我正在與一個R6類及其方法的文檔掙扎。我的目標是在RStudio中爲這些方法獲得自動完成。目前，我只知道方法的名稱，但沒有我通常使用的幫助信息roxygen2記錄具有參數等功能。任何人都可以幫助我嗎？目前，這是我的課： #' @importFrom R6 R6Class MQParameters <- R6::R6Class( 'MQParameters', p

1熱度

1回答

如何通過引用修改R6class對象的列表？

看到這個簡單的例子： library(R6) library(pryr) Person <- R6Class("Person", public = list(name = NA, hair = NA, initialize = function(name, hair) { if (!missing(name)) self$name <- name if (!mi