Nothing
context("retailer")
test_that("retailer list", {
skip_on_cran()
expect_error(retailer(), NA)
retailer_list <- retailer()
expect_equal(names(retailer_list), c("retailer_id", "retailer", "retailer_url", "currency", "visible"))
})
test_that("specific retailer", {
skip_on_cran()
expect_error(retailer(retailer_id), NA)
first_retailer <- retailer(retailer_id)
expect_equal(names(first_retailer), c("retailer_id", "retailer", "retailer_url", "currency", "visible"))
})
test_that("retailer products", {
skip_on_cran()
expect_error(retailer_products(retailer_id), NA)
first_retailer_products <- retailer_products(retailer_id)
expect_equal(names(first_retailer_products), c("product_id", "product", "brand", "model", "sku"))
})
test_that("retailer product count", {
skip_on_cran()
product_count <- retailer_products(retailer_id, head = TRUE)
expect_type(product_count, "integer")
expect_length(product_count, 1)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.