Nothing
context("futures and options")
httptest::with_mock_api({
test_that("output from nse_fo_top_gainers is as expected", {
testthat::skip_on_cran()
testthat::skip_on_os("windows")
testthat::skip_on_os("mac")
iquotes <- nse_fo_top_gainers()
expect_equal(
names(iquotes),
c("symbol", "series", "last_corp_announcement_date",
"last_corp_announcement", "open_price", "high_price",
"low_price", "last_traded_price",
"prev_close_price", "percent_change",
"traded_quantity", "turnover_in_lakhs"))
})
})
httptest::with_mock_api({
test_that("output from nse_fo_top_losers is as expected", {
testthat::skip_on_cran()
testthat::skip_on_os("windows")
testthat::skip_on_os("mac")
iquotes <- nse_fo_top_losers()
expect_equal(
names(iquotes),
c("symbol", "series", "last_corp_announcement_date",
"last_corp_announcement", "open_price", "high_price",
"low_price", "last_traded_price",
"prev_close_price", "percent_change",
"traded_quantity", "turnover_in_lakhs"))
})
})
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.