context("file-gen_location")
test_that("check existence of country names",
{
df = eq_ReadQuake()
df_loc = eq_GenLocationName(df)
expect_true(any(grepl(paste(unique(tolower(df_loc$COUNTRY)),collapse="|"),tolower(df_loc$LOCATION))))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.