context('links_pagina()')
sessao <- html_session("http://www.valor.com.br")
test_that('Retorna links como caracteres', {
# expect_warning(links <<- login('', '') %>% links_pagina(), 'Houve falha no login')
expect_silent(links <<- sessao %>% links_pagina())
expect_true(is.character(links))
})
# test_that('Funciona com argumentos implicitos e explicitos', {
# expect_silent(resposta1 <<- html_session('http://www.valor.com.br') %>%
# read_html() %>% links_pagina())
# expect_silent(resposta2 <<- links_pagina(css = '.teaser-title a'))
# expect_identical(resposta1, resposta2)
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.