#' @author Adam Wheeler adam.wheeler@thermofisher.com
#' @author Natasha Mora natasha.mora@thermofisher.com
#' @description Tests for getAttachedAttributeFile
context("Tests for getAttachedAttributeFile()")
test_that(paste("test getAttachedAttributeFile() OData call on:", env$auth), {
barcode <- getEntityByName(con$coreApi, data$testPocoType, data$testPocoName, FALSE, FALSE)$entity[[1]]$Barcode
t <- getAttachedAttributeFile(con$coreApi, data$testPocoType, barcode, data$testPocoFileAttrName, useVerbose = TRUE)
expect_equal(t$response$status_code, 200)
expect_gt(length(t$entity), 0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.