P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 06:51:48 +02:00
Code Releases Activity

deprecated fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-01-27 00:33:58 +01:00
parent f836722269
commit b39055c018
10 changed files with 71 additions and 219 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/atc.R
View File

@ -50,8 +50,8 @@
#'
#' # Use ab_* functions to get a specific property based on an ATC code
#' Cipro <- as.atc("cipro") # returns `J01MA02`
#' ab_official(Cipro) # returns "Ciprofloxacin"
#' ab_umcg(Cipro) # returns "CIPR", the code used in the UMCG
#' atc_official(Cipro) # returns "Ciprofloxacin"
#' atc_umcg(Cipro) # returns "CIPR", the code used in the UMCG
as.atc <- function(x) {
x.new <- rep(NA_character_, length(x))
@ -146,7 +146,7 @@ as.atc <- function(x) {
x.new
}
#' @rdname as.atc
#' @rdname AMR-deprecated
#' @export
guess_atc <- as.atc