Nothing
context("price")
test_that("product prices (call succeeds)", {
skip_on_cran()
expect_error(product_prices(product_id), NA)
expect_error(product_prices(product_id, verbose = TRUE), NA)
})
test_that("product prices (correct columns)", {
skip_on_cran()
first_product_prices <- product_prices(product_id)
expect_equal(names(first_product_prices), c("product_id", "time", "price", "price_promotion", "price_effective", "available"))
})
test_that("product prices count", {
skip_on_cran()
product_prices_count <- product_prices(product_id, head = TRUE)
expect_type(product_prices_count, "integer")
expect_length(product_prices_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.