context("SELECT")
imap <- IMAP("imaps://imap.gmail.com")
test_that("escape mailbox name with brackets", {
# when
mailbox <- "[Gmail]/Gesendet"
imap %<>% SELECT(mailbox)
# then
expected_path <- "%5BGmail%5D/Gesendet"
expect_equal(imap$path, expected_path)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.