From 5eda991c4791c9eed1e91e84f3ebb62e40b89404 Mon Sep 17 00:00:00 2001 From: "Matthijs S. Berends" Date: Thu, 16 May 2019 22:07:31 +0200 Subject: [PATCH] ab_info fix --- NAMESPACE | 1 + R/ab_property.R | 2 ++ man/ab_property.Rd | 3 +++ 3 files changed, 6 insertions(+) diff --git a/NAMESPACE b/NAMESPACE index 0ae3547b..7c5b7957 100755 --- a/NAMESPACE +++ b/NAMESPACE @@ -54,6 +54,7 @@ export(ab_atc_group2) export(ab_cid) export(ab_ddd) export(ab_group) +export(ab_info) export(ab_name) export(ab_official) export(ab_property) diff --git a/R/ab_property.R b/R/ab_property.R index e6f90bbb..848412e7 100644 --- a/R/ab_property.R +++ b/R/ab_property.R @@ -146,6 +146,8 @@ ab_ddd <- function(x, administration = "oral", units = FALSE, ...) { ab_validate(x = x, property = ddd_prop, ...) } +#' @rdname ab_property +#' @export ab_info <- function(x, language = get_locale(), ...) { x <- AMR::as.ab(x, ...) base::list(ab = x, diff --git a/man/ab_property.Rd b/man/ab_property.Rd index ea7c8248..31e620d8 100644 --- a/man/ab_property.Rd +++ b/man/ab_property.Rd @@ -11,6 +11,7 @@ \alias{ab_atc_group1} \alias{ab_atc_group2} \alias{ab_ddd} +\alias{ab_info} \title{Property of an antibiotic} \usage{ ab_name(x, language = get_locale(), tolower = FALSE, ...) @@ -31,6 +32,8 @@ ab_atc_group2(x, language = get_locale(), ...) ab_ddd(x, administration = "oral", units = FALSE, ...) +ab_info(x, language = get_locale(), ...) + ab_property(x, property = "name", language = get_locale(), ...) } \arguments{