expect_that(adjusted_data('COSUMAR', '01/01/2011', '01/01/2014'),
throws_error())
expect_that(adjusted_data('COSUMAR', '01/01/2011', '31/12/2013'),
is_a('data.frame'))
expect_that(adjusted_data('COSUMAR', '01-01-2011', '01-01-2014'),
throws_error())
expect_that(adjusted_data('COSUMAR', '2010/01/01', '2011/02/28'),
throws_error())
expect_that(adjusted_data('COSUMAR', '01/30/2011', '02/28/2011'),
throws_error())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.