mirror of
https://github.com/msberends/AMR.git
synced 2025-07-08 07:51:57 +02:00
(v1.0.1.9005) as.mo() improvements
This commit is contained in:
3
R/disk.R
3
R/disk.R
@ -159,6 +159,7 @@ vec_ptype_full.disk <- function(x, ...) {
|
||||
#' @export
|
||||
#' @noRd
|
||||
"[<-.disk" <- function(i, j, ..., value) {
|
||||
value <- as.disk(value)
|
||||
y <- NextMethod()
|
||||
attributes(y) <- attributes(i)
|
||||
y
|
||||
@ -167,6 +168,7 @@ vec_ptype_full.disk <- function(x, ...) {
|
||||
#' @export
|
||||
#' @noRd
|
||||
"[[<-.disk" <- function(i, j, ..., value) {
|
||||
value <- as.disk(value)
|
||||
y <- NextMethod()
|
||||
attributes(y) <- attributes(i)
|
||||
y
|
||||
@ -176,6 +178,7 @@ vec_ptype_full.disk <- function(x, ...) {
|
||||
#' @noRd
|
||||
c.disk <- function(x, ...) {
|
||||
y <- NextMethod()
|
||||
y <- as.disk(y)
|
||||
attributes(y) <- attributes(x)
|
||||
y
|
||||
}
|
||||
|
Reference in New Issue
Block a user