#' Load data from QuantiTray lookup tables
#'
#' This function loads lookup tables for the \code{quantify_} family of
#' functions.
#' This function is an internal function for the package \pkg{quantitray}.
#'
#' @param large Number of positve large wells (required for all methods).
#' @param small Number of positve small wells (required for method
#' \code{qt-2000} and \code{qt-legio}).
#' @param method Defines which QuantiTray method was used:
#' \itemize{
#' \item \code{qt} for QuantiTray method with 51 wells.
#' \item \code{qt-2000} for QuantiTray/2000 method with 97 wells.
#' \item \code{qt-legio} for QuantiTray/Legiolert method with 96 wells.
#' }
#'
#' @return A tibble of numeric data values from lookup table.
#'
#' @author
#' Jan Knappe, \email{jan.knappe@@gmail.com}
#'
#' @importFrom magrittr %>%
#' @importFrom dplyr select
#' @importFrom dplyr tibble
#' @importFrom dplyr left_join
#' @importFrom rlang .data
#'
#' @export
#'
load_qt_lookuptable <- function(large, small, method) {
#
# Function
# ~~~~~~~~~~~~~~~~
#
# convert input to tibble
input <-
tibble(count_large = large,
count_small = small)
#
# for QuantiTray
if (method %in% "qt") {
result <-
input %>%
select(.data$count_large) %>%
left_join(quanti_51,
by = c("count_large" = "count_large"))
}
#
# for QuantiTray/2000
if (method %in% "qt-2000") {
result <-
input %>%
left_join(quanti_97,
by = c("count_large" = "count_large",
"count_small" = "count_small"))
}
#
# for QuantiTray/Legiolert
if (method %in% "qt-legio") {
result <-
input %>%
left_join(quanti_96,
by = c("count_large" = "count_large",
"count_small" = "count_small"))
}
result
}
#~~~~~~~~
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.