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

(v2.1.1.9279) fix documentation, add foreign S3 exports to functions

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-05-16 16:55:29 +02:00
parent 139f79d372
commit 38cebc1541
24 changed files with 292 additions and 239 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
R/plotting.R
View File

@ -613,7 +613,8 @@ barplot.mic <- function(height,
#' @method autoplot mic
#' @rdname plot
# will be exported using s3_register() in R/zzz.R
# this prevents the requirement for putting the dependency in Imports:
#' @rawNamespace if(getRversion() >= "3.0.0") S3method(ggplot2::autoplot, mic)
autoplot.mic <- function(object,
mo = NULL,
ab = NULL,
@ -708,7 +709,8 @@ autoplot.mic <- function(object,
#' @method fortify mic
#' @noRd
# will be exported using s3_register() in R/zzz.R
# this prevents the requirement for putting the dependency in Imports:
#' @rawNamespace if(getRversion() >= "3.0.0") S3method(ggplot2::fortify, mic)
fortify.mic <- function(object, ...) {
object <- as.mic(object) # make sure that currently implemented MIC levels are used
stats::setNames(
@ -847,7 +849,8 @@ barplot.disk <- function(height,
#' @method autoplot disk
#' @rdname plot
# will be exported using s3_register() in R/zzz.R
# this prevents the requirement for putting the dependency in Imports:
#' @rawNamespace if(getRversion() >= "3.0.0") S3method(ggplot2::autoplot, disk)
autoplot.disk <- function(object,
mo = NULL,
ab = NULL,
@ -942,7 +945,8 @@ autoplot.disk <- function(object,
#' @method fortify disk
#' @noRd
# will be exported using s3_register() in R/zzz.R
# this prevents the requirement for putting the dependency in Imports:
#' @rawNamespace if(getRversion() >= "3.0.0") S3method(ggplot2::fortify, disk)
fortify.disk <- function(object, ...) {
stats::setNames(
as.data.frame(plotrange_as_table(object, expand = FALSE)),
@ -1055,7 +1059,8 @@ barplot.sir <- function(height,
#' @method autoplot sir
#' @rdname plot
# will be exported using s3_register() in R/zzz.R
# this prevents the requirement for putting the dependency in Imports:
#' @rawNamespace if(getRversion() >= "3.0.0") S3method(ggplot2::autoplot, sir)
autoplot.sir <- function(object,
title = deparse(substitute(object)),
xlab = translate_AMR("Antimicrobial Interpretation", language = language),
@ -1102,7 +1107,8 @@ autoplot.sir <- function(object,
#' @method fortify sir
#' @noRd
# will be exported using s3_register() in R/zzz.R
# this prevents the requirement for putting the dependency in Imports:
#' @rawNamespace if(getRversion() >= "3.0.0") S3method(ggplot2::fortify, sir)
fortify.sir <- function(object, ...) {
stats::setNames(
as.data.frame(table(object)),