1
0
mirror of https://github.com/msberends/AMR.git synced 2024-12-26 04:06:12 +01:00

documentation fix

This commit is contained in:
dr. M.S. (Matthijs) Berends 2022-10-10 21:03:39 +02:00
parent 3deeedc4b6
commit 955f9d7020
5 changed files with 28 additions and 18 deletions

View File

@ -1,5 +1,5 @@
Package: AMR Package: AMR
Version: 1.8.2.9011 Version: 1.8.2.9012
Date: 2022-10-10 Date: 2022-10-10
Title: Antimicrobial Resistance Data Analysis Title: Antimicrobial Resistance Data Analysis
Description: Functions to simplify and standardise antimicrobial resistance (AMR) Description: Functions to simplify and standardise antimicrobial resistance (AMR)

View File

@ -1,4 +1,4 @@
# AMR 1.8.2.9011 # AMR 1.8.2.9012
This version will eventually become v2.0! We're happy to reach a new major milestone soon! This version will eventually become v2.0! We're happy to reach a new major milestone soon!

View File

@ -458,7 +458,7 @@ ab_validate <- function(x, property, ...) {
} else { } else {
# try to catch an error when inputting an invalid argument # try to catch an error when inputting an invalid argument
# so the 'call.' can be set to FALSE # so the 'call.' can be set to FALSE
tryCatch(x[1L] %in% AMR::antibiotics[1, property, drop = TRUE], tryCatch(x[1L] %in% AB_lookup[1, property, drop = TRUE],
error = function(e) stop(e$message, call. = FALSE) error = function(e) stop(e$message, call. = FALSE)
) )

View File

@ -31,9 +31,13 @@
#' #'
#' With [add_custom_antimicrobials()] you can add your own manual antimicrobial codes to the `AMR` package. #' With [add_custom_antimicrobials()] you can add your own manual antimicrobial codes to the `AMR` package.
#' @param x a [data.frame] resembling the [antibiotics] data set, at least containing columns "ab" and "name" #' @param x a [data.frame] resembling the [antibiotics] data set, at least containing columns "ab" and "name"
#' @details Due to how \R works, the [add_custom_antimicrobials()] function has to be run in every \R session - added antimicrobials are not stored between sessions and are thus lost when \R is exited. It is possible to save the antimicrobial additions to your `.Rprofile` file to circumvent this, for example: #' @details Due to how \R works, the [add_custom_antimicrobials()] function has to be run in every \R session - added antimicrobials are not stored between sessions and are thus lost when \R is exited. It is possible to save the antimicrobial additions to your `.Rprofile` file to circumvent this, although this requires to load the `AMR` package at every start-up:
#' #'
#' ```r #' ```r
#' # Open .Rprofile file
#' utils::file.edit("~/.Rprofile")
#'
#' # Add custom antibiotic codes:
#' library(AMR) #' library(AMR)
#' add_custom_antimicrobials( #' add_custom_antimicrobials(
#' data.frame(ab = "TEST", #' data.frame(ab = "TEST",
@ -46,12 +50,12 @@
#' @rdname add_custom_antimicrobials #' @rdname add_custom_antimicrobials
#' @export #' @export
#' @examples #' @examples
#' \donttest{ #' # returns NA and throws a warning (which is now suppressed):
#' suppressWarnings(
#' as.ab("test")
#' )
#' #'
#' # returns NA and throws a warning: #' # now add a manual entry - it will be considered by as.ab() and
#' as.ab("test")
#'
#' # now a manual entry - it will be considered by as.ab() and
#' # all ab_*() functions #' # all ab_*() functions
#' add_custom_antimicrobials( #' add_custom_antimicrobials(
#' data.frame(ab = "TEST", #' data.frame(ab = "TEST",
@ -63,7 +67,8 @@
#' as.ab("test") #' as.ab("test")
#' ab_name("test") #' ab_name("test")
#' ab_group("test") #' ab_group("test")
#' } #'
#' ab_info("test")
add_custom_antimicrobials <- function(x) { add_custom_antimicrobials <- function(x) {
meet_criteria(x, allow_class = "data.frame") meet_criteria(x, allow_class = "data.frame")
stop_ifnot(all(c("ab", "name") %in% colnames(x)), stop_ifnot(all(c("ab", "name") %in% colnames(x)),

View File

@ -16,9 +16,13 @@ clear_custom_antimicrobials()
With \code{\link[=add_custom_antimicrobials]{add_custom_antimicrobials()}} you can add your own manual antimicrobial codes to the \code{AMR} package. With \code{\link[=add_custom_antimicrobials]{add_custom_antimicrobials()}} you can add your own manual antimicrobial codes to the \code{AMR} package.
} }
\details{ \details{
Due to how \R works, the \code{\link[=add_custom_antimicrobials]{add_custom_antimicrobials()}} function has to be run in every \R session - added antimicrobials are not stored between sessions and are thus lost when \R is exited. It is possible to save the antimicrobial additions to your \code{.Rprofile} file to circumvent this, for example: Due to how \R works, the \code{\link[=add_custom_antimicrobials]{add_custom_antimicrobials()}} function has to be run in every \R session - added antimicrobials are not stored between sessions and are thus lost when \R is exited. It is possible to save the antimicrobial additions to your \code{.Rprofile} file to circumvent this, although this requires to load the \code{AMR} package at every start-up:
\if{html}{\out{<div class="sourceCode r">}}\preformatted{library(AMR) \if{html}{\out{<div class="sourceCode r">}}\preformatted{# Open .Rprofile file
utils::file.edit("~/.Rprofile")
# Add custom antibiotic codes:
library(AMR)
add_custom_antimicrobials( add_custom_antimicrobials(
data.frame(ab = "TEST", data.frame(ab = "TEST",
name = "Test Antibiotic", name = "Test Antibiotic",
@ -29,12 +33,12 @@ add_custom_antimicrobials(
Use \code{\link[=clear_custom_antimicrobials]{clear_custom_antimicrobials()}} to clear the previously added antimicrobials. Use \code{\link[=clear_custom_antimicrobials]{clear_custom_antimicrobials()}} to clear the previously added antimicrobials.
} }
\examples{ \examples{
\donttest{ # returns NA and throws a warning (which is now suppressed):
suppressWarnings(
as.ab("test")
)
# returns NA and throws a warning: # now add a manual entry - it will be considered by as.ab() and
as.ab("test")
# now a manual entry - it will be considered by as.ab() and
# all ab_*() functions # all ab_*() functions
add_custom_antimicrobials( add_custom_antimicrobials(
data.frame(ab = "TEST", data.frame(ab = "TEST",
@ -46,5 +50,6 @@ add_custom_antimicrobials(
as.ab("test") as.ab("test")
ab_name("test") ab_name("test")
ab_group("test") ab_group("test")
}
ab_info("test")
} }