Nothing
context("running fund_search")
with_mock_api({
test_that("running", {
res <- fund_search("precious metals")
expect_is(res, "data.frame")
expect_length(res, 12)
expect_equal(nrow(res), 80)
expect_length(unique(res$class_id), 80)
test.row <- res[76, ]
expect_equal(test.row$class_id, "C000092800")
expect_equal(test.row$class_name, "Administrator Class")
expect_equal(test.row$cik, "0001081400")
})
test_that("fast search (Class)", {
res <- fund_fast_search("C000191892")
expect_is(res, "data.frame")
expect_length(res, 12)
expect_equal(nrow(res), 1)
expect_length(unique(res$class_id), 1)
test.row <- res[1, ]
expect_equal(test.row$class_id, "C000191892")
expect_equal(test.row$class_name, "Class T")
expect_equal(test.row$cik, "0000725781")
})
test_that("fast search (CIK)", {
res <- fund_fast_search("0000891190")
expect_is(res, "data.frame")
expect_length(res, 12)
expect_equal(nrow(res), 17)
expect_length(unique(res$class_id), 17)
expect_true(all(res$cik == "0000891190"))
test.row <- res[6, ]
expect_equal(test.row$class_id, "C000092042")
expect_equal(test.row$class_name, "Institutional Shares")
expect_equal(test.row$cik, "0000891190")
})
})
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.