tests/testthat/test-titles_scrap.R

In feddelegrand7/ralger: Easy Web Scraping

test_that("titles_scrap() works", {

  skip_on_cran()

  h1 <- "https://rstudio.com/" %>%
    read_html() %>%
    html_nodes("h1") %>%
    html_text()

  h2 <- "https://rstudio.com/" %>%
    read_html() %>%
    html_nodes("h2") %>%
    html_text()

  h3 <- "https://rstudio.com/" %>%
    read_html() %>%
    html_nodes("h3") %>%
    html_text()


  expect_equivalent(


  titles_scrap("https://rstudio.com/")


    ,


    data <- c(h1, h2, h3)


    )


  ###############################################################################

  expect_type(titles_scrap("https://rstudio.com/"),
              "character")

  ###############################################################################

  expect_vector(titles_scrap("https://rstudio.com/"))

})