P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-10 06:21:50 +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

14
R/ab.R
View File

@ -343,7 +343,7 @@ is.ab <- function(x) {
inherits(x, "ab")
}
#' @exportMethod print.ab
#' @method print ab
#' @export
#' @noRd
print.ab <- function(x, ...) {
@ -351,7 +351,7 @@ print.ab <- function(x, ...) {
print(as.character(x), quote = FALSE)
}
#' @exportMethod as.data.frame.ab
#' @method as.data.frame ab
#' @export
#' @noRd
as.data.frame.ab <- function(x, ...) {
@ -362,7 +362,7 @@ as.data.frame.ab <- function(x, ...) {
as.data.frame.vector(as.ab(x), ...)
}
}
#' @exportMethod [.ab
#' @method [ ab
#' @export
#' @noRd
"[.ab" <- function(x, ...) {
@ -370,7 +370,7 @@ as.data.frame.ab <- function(x, ...) {
attributes(y) <- attributes(x)
y
}
#' @exportMethod [[.ab
#' @method [[ ab
#' @export
#' @noRd
"[[.ab" <- function(x, ...) {
@ -378,7 +378,7 @@ as.data.frame.ab <- function(x, ...) {
attributes(y) <- attributes(x)
y
}
#' @exportMethod [<-.ab
#' @method [<- ab
#' @export
#' @noRd
"[<-.ab" <- function(i, j, ..., value) {
@ -386,7 +386,7 @@ as.data.frame.ab <- function(x, ...) {
attributes(y) <- attributes(i)
class_integrity_check(y, "antimicrobial code", antibiotics$ab)
}
#' @exportMethod [[<-.ab
#' @method [[<- ab
#' @export
#' @noRd
"[[<-.ab" <- function(i, j, ..., value) {
@ -394,7 +394,7 @@ as.data.frame.ab <- function(x, ...) {
attributes(y) <- attributes(i)
class_integrity_check(y, "antimicrobial code", antibiotics$ab)
}
#' @exportMethod c.ab
#' @method c ab
#' @export
#' @noRd
c.ab <- function(x, ...) {