#' Consolidate Xpert results
#'
#' Take laboratory data set and consolidate Xpert results
#' @param x data frame containing variables
#' @param rm_orig remove original variables - TRUE or FALSE
#' @param ... further arguments passed to or from other methods
#' @author Jay Achar
#' @seealso \code{\link{tbcleanr}}
#' @importFrom assertthat assert_that
#' @export
xpert_result_fixer <- function(x, rm_orig = TRUE, ...) {
# check input
assert_that(is.data.frame(x))
# UseMethod
UseMethod("xpert_result_fixer", x)
}
#' Default method for xpert_result_fixer()
#'
#' Allow data frames with unspecified object class to pass through
#' @inheritParams xpert_result_fixer
#' @author Jay Achar
#' @seealso \code{\link{tbcleanr}}
#' @export
xpert_result_fixer.default <- function(x, rm_orig = TRUE, ...) {
message("No lab object class detected: xpert_result_fixer() not applied.")
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.