Nothing
context("Unicode characters")
test_that("Sample Spanish language string is returned correctly", {
check_impala()
expect_equal(
tbl(impala, "unicode_test") %>%
filter(language == "Spanish") %>%
select(test) %>%
collect() %>%
pull(1) %>%
as.character(),
"El pingüino Wenceslao hizo kilómetros bajo exhaustiva lluvia y frío, añoraba a su querido cachorro"
)
})
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.