mirror of https://github.com/msberends/AMR.git
75 lines
3.7 KiB
R
Executable File
75 lines
3.7 KiB
R
Executable File
# ==================================================================== #
|
|
# TITLE #
|
|
# Antimicrobial Resistance (AMR) Analysis #
|
|
# #
|
|
# AUTHORS #
|
|
# Berends MS (m.s.berends@umcg.nl), Luz CF (c.f.luz@umcg.nl) #
|
|
# #
|
|
# LICENCE #
|
|
# This program is free software; you can redistribute it and/or modify #
|
|
# it under the terms of the GNU General Public License version 2.0, #
|
|
# as published by the Free Software Foundation. #
|
|
# #
|
|
# This program is distributed in the hope that it will be useful, #
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
|
|
# GNU General Public License for more details. #
|
|
# ==================================================================== #
|
|
|
|
#' The \code{AMR} Package
|
|
#'
|
|
#' Welcome to the \code{AMR} package. This page gives some additional contact information about the authors.
|
|
#' @details
|
|
#' This package was intended to simplify the analysis and prediction of Antimicrobial Resistance (AMR) and work with antibiotic properties by using evidence-based methods.
|
|
#'
|
|
#' This package was created for academic research by PhD students of the Faculty of Medical Sciences of the University of Groningen and the Medical Microbiology & Infection Prevention (MMBI) department of the University Medical Center Groningen (UMCG).
|
|
#' @section Authors:
|
|
#' Matthijs S. Berends[1,2] Christian F. Luz[1], Erwin E.A. Hassing[2], Corinna Glasner[1], Alex W. Friedrich[1], Bhanu Sinha[1] \cr
|
|
#'
|
|
#' [1] Department of Medical Microbiology, University of Groningen, University Medical Center Groningen, Groningen, the Netherlands - \url{rug.nl} \url{umcg.nl} \cr
|
|
#' [2] Certe Medical Diagnostics & Advice, Groningen, the Netherlands - \url{certe.nl}
|
|
#' @section Contact us:
|
|
#' For suggestions, comments or questions, please contact us at:
|
|
#'
|
|
#' Matthijs S. Berends \cr
|
|
#' m.s.berends [at] umcg [dot] nl \cr
|
|
#' Department of Medical Microbiology, University of Groningen \cr
|
|
#' University Medical Center Groningen \cr
|
|
#' Post Office Box 30001 \cr
|
|
#' 9700 RB Groningen
|
|
#'
|
|
#' If you have found a bug, please file a new issue at: \cr
|
|
#' \url{https://gitlab.com/msberends/AMR/issues}
|
|
#' @name AMR
|
|
#' @rdname AMR
|
|
NULL
|
|
|
|
.onLoad <- function(libname, pkgname) {
|
|
backports::import(pkgname)
|
|
}
|
|
|
|
.onAttach <- function(libname, pkgname) {
|
|
# save data.tables to improve speed of as.mo:
|
|
|
|
# microorganismsDT <- data.table::as.data.table(AMR::microorganisms)
|
|
# microorganisms.oldDT <- data.table::as.data.table(AMR::microorganisms.old)
|
|
#
|
|
# data.table::setkey(microorganismsDT, prevalence, tsn)
|
|
# data.table::setkey(microorganisms.oldDT, tsn, name)
|
|
|
|
base::assign(x = "microorganismsDT",
|
|
value = microorganismsDT,
|
|
envir = base::as.environment("package:AMR"))
|
|
base::assign(x = "microorganisms.prevDT",
|
|
value = microorganismsDT[prevalence != 9999,],
|
|
envir = base::as.environment("package:AMR"))
|
|
base::assign(x = "microorganisms.unprevDT",
|
|
value = microorganismsDT[prevalence == 9999,],
|
|
envir = base::as.environment("package:AMR"))
|
|
|
|
base::assign(x = "microorganisms.oldDT",
|
|
value = microorganisms.oldDT,
|
|
envir = base::as.environment("package:AMR"))
|
|
|
|
}
|