test_that("the main table loads at all", {
expect_non_empty_dataframe(
without_warning_or_messages(
get_seedlings_nouns()))
})
test_that("get_seedlings_nouns and friends work", {
versions_to_test <- c('0.0.0.9016', # a dev version
'v1.0.0', # a public version
'v2.0.0-dev.3') # a version with extra columns added
for (version in versions_to_test) {
for (table in c('seedlings-nouns', 'regions', 'recordings',
'sub-recordings')) {
if (table == 'seedlings-nouns') {
get_table <- function() {
without_warning_or_messages(
get_seedlings_nouns(version = version)
)
}}
else {get_table <- function() {
without_warning_or_messages(
get_seedlings_nouns_extra(version = version, table = table)
)
}}
get_codebook <- function() {
without_warning_or_messages(
get_seedlings_nouns_codebook(version = version, table = table)
)
}
expect_non_empty_dataframe(get_table())
expect_non_empty_dataframe(get_codebook())
}
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.