- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我一直在开发一个 S4 类,它本质上是一个带有一些额外信息的 data.frame。就此问题而言,此类的“额外”功能无关紧要。重要的是该类包含一个存储在其中一个槽中的 data.frame 对象。 (我将 data.frame 放在一个插槽中,而不是将其命名为父类(super class),因为我发现包含 data.frames 的 S4 类出于某种原因将 data.frames 简化为列表)。
这是一个基本的例子:
setClass('tmp_class', slots = c(df = 'data.frame'))
test_object <- new('tmp_class', df = data.frame(Num = 1:10, Let = letters[1:10]))
现在我想做的是,基本上 任何 应用于此类对象的函数都应用于槽 @df 中的 data.frame。为特定功能编写方法来执行此操作很容易,例如:
setMethod('dim', signature = c(x = 'tmp_class'), function(x) dim(x@df))
但我仅限于我能想到的功能,用户发明的任何功能都行不通。
编写一种包装器/闭包来修改函数以在我的类上工作是一件简单的事情,如下所示:
tmp_classize <- function(func){
function(tmp, ...){ func(tmp@df, ...) }
}
因此,与其为 colnames() 或 ncol() 编写方法,不如运行:
tmp_classize(colnames)(test_object)
或
tmp_classize(ncol)(test_object)
但我想做的是以某种方式自动在应用于我的类的任何函数上调用我的“tmp_classize”函数。我不知道该怎么做。我在想,如果能以某种方式调用具有类“tmp_class”的输入签名的“通用方法”,然后使用 sys.function() 来获取被调用的实际函数,也许我可以做一些工作,但是 A) 那里是递归问题 B) 我不知道如何调用这样的“通用”方法。在我看来,解决方案(如果存在的话)可能需要进行非标准评估,我宁愿避免这种情况,但在必要时可能会使用。
谢谢!
附言我意识到这项工作可能是不明智的/糟糕的编程技术,而且我可能永远不会在包中实际实现它。我仍然很好奇这是否可能。
附言我也对应用于 S3 类(class)的相同想法感兴趣!
最佳答案
原则上你可以做一个 classUnion
为你的类(class)和data.frame
并为您的类编写处理所有读写方式的方法 data.frames
例如$
, [
, dim()
, <-
还有很多。然后当其他函数试图将您的新类用作 data.frame
时将有一些方法可以使它起作用。这在 John Chambers 从第 375 页开始的“数据分析软件”中有所解释。也就是说,这个系统可能很难实现。
一个更简单的系统可能只是向您的 data.frame
添加一个额外的属性以及您需要的额外信息。例如:
x<-data.frame(a=1:3,b=4:6)
attr(x,"Info")<-"Extra info I need"
attributes(x)$Info
[1] "Extra info I need"
这不像 S4
那样优雅类,但会做所有事情 data.frame
做。我怀疑有人熟悉 S3
类可以在这个想法上改进很多。
关于R:修改应用于 S4 类的任何函数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39662297/
我写了几个命令来转换数据框,但我想将我写的代码简化为四个部分。第 1,2 和 3 部分用于计算第 1、2 和 3 列(计算每列重复值的次数,并完成 0 和三列最大值之间的缺失数)。第四部分是加入前面的
我试图理解应用于函数的类型参数。 我想在下面的方法中使用通用类型,但为了我的理解使用 String 和 Int。 当我如下定义一个函数时 def myfunc[Int](f:String => I
我有一个像下面这样的 DIV: // link to some js .js 在 div 中呈现最新的文章摘要。然而,它在 Calibri
我在 GridView 中有以下列,一列是日期,另一列是美元金额。我应用了格式并将 HtmlEncode 属性设置为 false,但值仍然未格式化: 这就是这些值在 GridView 中的显示方式
假设我已经定义了这些类型: data Km = Km Float deriving (Show, Eq) data Mile = Mile Float deriving (Show, Eq
我有一个关于 value in context 的小问题。 取 Just 'a',所以在这种情况下 Maybe 类型上下文中的值是 'a' 采用[3],因此在这种情况下,[a] 类型上下文中的值为3
require(quantmod) require(PerformanceAnalytics) getSymbols('INTC') x<- monthlyReturn(INTC) rollapply
我正在使用 VBA 对“已应用字轨更改”文档进行更改。 红色段落结束标记是插入段落结束标记。(打开“跟踪更改”> 将光标放在第一段末尾 > 按 Enter > 插入新段落内容 > 格式风格不同) 我需
考虑以下代码: class A{ my_method(const B& b){ import_something_from_c(this, b.getC()); // does some
我正在为自定义 Material 分配图像。分配的图像看起来有点像素化,类似于此图像 我已经将抗锯齿设置为 4 倍。我该如何解决这个问题? 最佳答案 尝试将 Material 的 mipFilter
我将样式应用于 元素和 元素。是否可以在 上使用样式元素应用于 似乎不遵循 CSS 特异性的通常规则。这是真的吗? 示例:http://jsfiddle.net/59dpy/ 尝试将所有背景色设为红
有没有办法将垂直虚线边框应用于 没有他们(边界)合并?我说的是附图上的东西——有 3 个 这里的元素,每个元素包含 2 的。如果我申请 border-right: 1px dashed black到
当我在 CSS 中对主体应用线性渐变时,如下所示 body { background: linear-gradient(#10416b, black); } 它不会将它应用到整个网页,而是将它应用到页
当我将边框和边框半径应用于 td 时,内半径是一个直 Angular ,根本不是圆的。 最佳答案 问题很可能是背景不透明的子元素会剪掉边框的内半径。 要解决此问题,您可以在 td 上应用 overfl
基本上,我有一个小的 SVG,它使用一个组来定义一个可重用的符号。该组包括我想在 CSS 中设置动画的路径。我面临的问题是只有“原始”元素应用了 CSS,“使用过”的元素没有。 .player_arr
宽度属性在这里不起作用: td { height: 50px; width: 25px; border: 1px
我想要一个函数(例如)在两种情况下输出 Map 的所有值: Map map1 = new HashMap(); Map map2 = new HashMap(); output(map1, "1234
我被要求将我们应用中的警报对话框的外观与应用主题使用的外观相匹配。 我设法将样式应用于应用程序中的所有警报对话框,并将其用作应用程序主题的一部分,但有些情况下样式应用不正确。 例如,当警报对话框包含“
我有一个 CGPath(由 UIBezierPath 创建),我想通过应用 CGAffineTransformScale 将其缩放到我想要的任何大小。 这会影响我的绘图质量(在转换为图像时)吗?如果不
您好,我已经在 vector 上使用了一些 STL 算法,例如 find_if、count_if、sort、push_back 等。现在我想为所有容器对象( vector 、列表、映射、集合)制作一个
我是一名优秀的程序员,十分优秀!