P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 07:51:57 +02:00
Code Releases Activity

v1.2.0

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-05-28 16:48:55 +02:00
parent d9a4b0bcaf
commit b44e2c9202
82 changed files with 448 additions and 517 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
R/disk.R
View File

@ -95,7 +95,7 @@ is.disk <- function(x) {
inherits(x, "disk")
}
#' @exportMethod print.disk
#' @method print disk
#' @export
#' @noRd
print.disk <- function(x, ...) {
@ -103,7 +103,7 @@ print.disk <- function(x, ...) {
print(as.integer(x), quote = FALSE)
}
#' @exportMethod [.disk
#' @method [ disk
#' @export
#' @noRd
"[.disk" <- function(x, ...) {
@ -111,7 +111,7 @@ print.disk <- function(x, ...) {
attributes(y) <- attributes(x)
y
}
#' @exportMethod [[.disk
#' @method [[ disk
#' @export
#' @noRd
"[[.disk" <- function(x, ...) {
@ -119,7 +119,7 @@ print.disk <- function(x, ...) {
attributes(y) <- attributes(x)
y
}
#' @exportMethod [<-.disk
#' @method [<- disk
#' @export
#' @noRd
"[<-.disk" <- function(i, j, ..., value) {
@ -128,7 +128,7 @@ print.disk <- function(x, ...) {
attributes(y) <- attributes(i)
y
}
#' @exportMethod [[<-.disk
#' @method [[<- disk
#' @export
#' @noRd
"[[<-.disk" <- function(i, j, ..., value) {
@ -137,7 +137,7 @@ print.disk <- function(x, ...) {
attributes(y) <- attributes(i)
y
}
#' @exportMethod c.disk
#' @method c disk
#' @export
#' @noRd
c.disk <- function(x, ...) {