#' @author Scott Russell scott.russell@thermofisher.com
#' @author Natasha Mora natasha.mora@thermofisher.com
#' @description \code Tests for getWellContents.
context("Tests for getWellContents")
test_that(paste("test getWellContents() on:", env$auth), {
result <- getWellContents(con$coreApi, data$containerBarcode, data$containerWellNum, data$containerType, fullMetadata = TRUE, verbose)
expect_equal(result$response$status_code, 200)
expect_true(!is.null(result$entity$`Id@odata.type`))
case(
grepl("[0-2]+\\.[0-9]+\\.[0-9]+", con$coreApi$semVer) ~ {
expansion <- "CONTENT"
},
grepl("[3-9]+\\.[0-9]+\\.[0-9]+", con$coreApi$semVer) ~ {
expansion <- "CELL_CONTENTS"
}
)
expect_gt(length(result$entity[[expansion]][[1]]), 0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.