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

(v1.1.0.9012) lose dependencies

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-05-19 12:08:49 +02:00
parent 218fd08097
commit 19703eb5d3
40 changed files with 101 additions and 584 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
R/ab.R
View File

@ -75,7 +75,7 @@ as.ab <- function(x, ...) {
if (all(toupper(x) %in% antibiotics$ab)) {
# valid AB code, but not yet right class
return(structure(.Data = toupper(x),
class = "ab"))
class = c("ab", "character")))
}
x_bak <- x
@ -332,7 +332,7 @@ as.ab <- function(x, ...) {
}
structure(.Data = x_result,
class = "ab")
class = c("ab", "character"))
}
#' @rdname as.ab
@ -352,17 +352,14 @@ print.ab <- function(x, ...) {
#' @exportMethod as.data.frame.ab
#' @export
#' @noRd
as.data.frame.ab <- function(x, ...) {
# same as as.data.frame.character but with removed stringsAsFactors
nm <- paste(deparse(substitute(x), width.cutoff = 500L),
collapse = " ")
as.data.frame.ab <- function (x, ...) {
nm <- deparse1(substitute(x))
if (!"nm" %in% names(list(...))) {
as.data.frame.vector(x, ..., nm = nm)
as.data.frame.vector(as.ab(x), ..., nm = nm)
} else {
as.data.frame.vector(x, ...)
as.data.frame.vector(as.ab(x), ...)
}
}
#' @exportMethod [.ab
#' @export
#' @noRd
@ -403,11 +400,3 @@ c.ab <- function(x, ...) {
attributes(y) <- attributes(x)
class_integrity_check(y, "antimicrobial code", antibiotics$ab)
}
#' @importFrom pillar pillar_shaft
#' @export
pillar_shaft.ab <- function(x, ...) {
out <- format(x)
out[is.na(x)] <- font_red("NA")
pillar::new_pillar_shaft_simple(out, align = "left", min_width = 4)
}