Nothing
test_df <- function(df) {
expect_true(tibble::is_tibble(df))
expect_true(nrow(df) > 1)
expect_true(ncol(df) > 1)
return(invisible(TRUE))
}
test_that("get_quandl", {
skip_if_offline()
skip_on_cran() # avoid api calls on CRAN
api_key <- ''
id_in <- c('Inflation Canada' = 'RATEINF/INFLATION_CAN')
df <- get_Quandl_series(id_in = id_in, api_key = api_key)
test_df(df)
})
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.